From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: rixed@happyleptic.org
Newsgroups: gmane.lisp.guile.user
Subject: Re: Creating a top level definition if none so far exists, on the fly.
Date: Thu, 15 Aug 2013 13:10:05 +0200
Message-ID: <20130815111005.GB3335@dell.happyleptic.org>
References: <20130815115759.585bf639@DebianBox.loc>
NNTP-Posting-Host: plane.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: ger.gmane.org 1376565045 20382 80.91.229.3 (15 Aug 2013 11:10:45 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Thu, 15 Aug 2013 11:10:45 +0000 (UTC)
To: guile-user@gnu.org
Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Thu Aug 15 13:10:47 2013
Return-path: <guile-user-bounces+guile-user=m.gmane.org@gnu.org>
Envelope-to: guile-user@m.gmane.org
Original-Received: from lists.gnu.org ([208.118.235.17])
	by plane.gmane.org with esmtp (Exim 4.69)
	(envelope-from <guile-user-bounces+guile-user=m.gmane.org@gnu.org>)
	id 1V9vS1-000883-W7
	for guile-user@m.gmane.org; Thu, 15 Aug 2013 13:10:46 +0200
Original-Received: from localhost ([::1]:52369 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <guile-user-bounces+guile-user=m.gmane.org@gnu.org>)
	id 1V9vS1-0005Qe-Er
	for guile-user@m.gmane.org; Thu, 15 Aug 2013 07:10:45 -0400
Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:36093)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rixed@happyleptic.org>) id 1V9vRj-0005QU-7w
	for guile-user@gnu.org; Thu, 15 Aug 2013 07:10:35 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <rixed@happyleptic.org>) id 1V9vRa-0000Kz-LW
	for guile-user@gnu.org; Thu, 15 Aug 2013 07:10:27 -0400
Original-Received: from smtp3-g21.free.fr ([2a01:e0c:1:1599::12]:59610)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <rixed@happyleptic.org>) id 1V9vRa-0000GO-3R
	for guile-user@gnu.org; Thu, 15 Aug 2013 07:10:18 -0400
Original-Received: from dell.happyleptic.org (unknown [82.67.194.89])
	by smtp3-g21.free.fr (Postfix) with ESMTP id D0773A626E
	for <guile-user@gnu.org>; Thu, 15 Aug 2013 13:10:06 +0200 (CEST)
Original-Received: from rixed by dell.happyleptic.org with local (Exim 4.80)
	(envelope-from <rixed@happyleptic.org>) id 1V9vRN-00016K-G9
	for guile-user@gnu.org; Thu, 15 Aug 2013 13:10:05 +0200
Mail-Followup-To: rixed@happyleptic.org, guile-user@gnu.org
Content-Disposition: inline
In-Reply-To: <20130815115759.585bf639@DebianBox.loc>
User-Agent: Mutt/1.5.21 (2010-09-15)
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
	(bad octet value).
X-Received-From: 2a01:e0c:1:1599::12
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: General Guile related discussions <guile-user.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guile-user>
List-Post: <mailto:guile-user@gnu.org>
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=subscribe>
Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.lisp.guile.user:10632
Archived-At: <http://permalink.gmane.org/gmane.lisp.guile.user/10632>

> (if (not (defined? 'ToggleFiguredBassMode::Active))
>     (define ToggleFiguredBassMode::Active #f))
> 
> The intention is to have a variable defined at the top level which
> starts out being #f. The need for the construct arose because it
> appears in a self-contained script which cannot expect an
> initialization step to have been performed.
> Is there a straight-forward way to modify this?

(define ToggleFiguredBassMode::Active
  (if (defined? 'ToggleFiguredBassMode::Active)
      ToggleFiguredBassMode::Active
      #f))

Nothing to feer I guess.