Re: module trickery

[Thomas Bushnell, BSG]

Marius Vollmer <address@hidden> writes:

> address@hidden (Thomas Bushnell, BSG) writes:
> 
> > I'm quite flexible here... anything that lets me set up the relevant
> > module and do eval-in-module will be fine by me.  Switching from
> > Guile 1.4 to the latest 1.5 test release is not unacceptible, if it
> > will really work.
> 
> Here is something that works with 1.5.8 and CVS HEAD.  I don't know
> whether it works with the 1.4 series, tho.  Is it similar enough to
> what you are doing?

Ok, I installed 1.5.8.  Here's a simple failure case with very little
trickery.  Loading the following file causes an apparent infinite
loop:

(define-module (foo)
  :use-syntax (ice-9 syncase))

(define-syntax whoo!
  (syntax-rules ()
    ((_ a b)
     (set! a b))))

(define-public (print-two)
  (let ((a 0))
    (whoo! a 2)
    (display a)))

(define-module (test))
(use-modules (foo))
(print-two)