Richard Shann skribis:
> (if (defined? 'define-once)
> (define-once ToggleTripleting::InsideTriplet #t)
> (eval-string "(if (not (defined? 'ToggleTripleting::InsideTriplet))
> (define ToggleTripleting::InsideTriplet #t))"))
Rather something along these lines:
On Wed, 2013-02-27 at 16:13 +0100, Andy Wingo wrote:
> On Wed 27 Feb 2013 16:08, Andy Wingo writes:
>
> > Here is a Guile 2-compatible version:
> >
> > (cond-expand
> >(guile-2) ; nothing
> >(else ; guile < 2.0
> > (define-macro (define-once sym exp)
> > `(define ,sym (if (mod
On Wed, 2013-02-27 at 06:48 -0800, Mike Gran wrote:
> > From: Richard Shann
> >
> > Thanks for this - it seems define-once is not defined in guile 1.8
> > however, so while some systems only have guile 2.0 (Fedora) and others
> > only have guile 1.8 (Debian stable) I would need something more.
>
On Wed 27 Feb 2013 16:08, Andy Wingo writes:
> Here is a Guile 2-compatible version:
>
> (cond-expand
>(guile-2) ; nothing
>(else ; guile < 2.0
> (define-macro (define-once sym exp)
> `(define ,sym (if (module-locally-bound? ',sym) ,sym ,val)
Sorry, thinko+typo. Should b
Hi Richard,
On Wed 27 Feb 2013 15:22, Richard Shann writes:
> On Wed, 2013-02-27 at 08:19 -0500, m...@markwitmer.com wrote:
>> Richard Shann writes:
>>
>> > (if (not (defined? 'ToggleTripleting::InsideTriplet))
>> > (define ToggleTripleting::InsideTriplet #t))
I'm sorry we were not able t
> From: Richard Shann
>
> Thanks for this - it seems define-once is not defined in guile 1.8
> however, so while some systems only have guile 2.0 (Fedora) and others
> only have guile 1.8 (Debian stable) I would need something more.
Just as an aside... Fedora doesn't have Guile 2.0 at all, excep
Can you wrap the code in a cond-expand form no?
/Stefan
On Wed, 2013-02-27 at 08:19 -0500, m...@markwitmer.com wrote:
> Richard Shann writes:
>
> > We have one more construct being refused as we upgrade to guile 2.0 in
> > GNU/Denemo
> >
> > (if (not (defined? 'ToggleTripleting::InsideTriplet))
> > (define ToggleTripleting::InsideTriplet #t))
> >
Richard Shann writes:
> We have one more construct being refused as we upgrade to guile 2.0 in
> GNU/Denemo
>
> (if (not (defined? 'ToggleTripleting::InsideTriplet))
> (define ToggleTripleting::InsideTriplet #t))
>
> It is intended to set up a flag which toggles between true and false on
> ea
We have one more construct being refused as we upgrade to guile 2.0 in
GNU/Denemo
(if (not (defined? 'ToggleTripleting::InsideTriplet))
(define ToggleTripleting::InsideTriplet #t))
It is intended to set up a flag which toggles between true and false on
each call. If already set up, the flag i
10 matches
Mail list logo