[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Strange undefined binding bug coupled to module system
From: |
Mikael Djurfeldt |
Subject: |
Re: Strange undefined binding bug coupled to module system |
Date: |
Wed, 22 Dec 2004 21:29:53 +0100 |
On Wed, 22 Dec 2004 16:35:18 +0100, Marius Vollmer
<address@hidden> wrote:
> I have changed module-make-local-var! a bit:
>
> (define (module-make-local-var! m v)
> [...]
> (let ((imported-var (module-variable m v))
> (local-var (or (and (module-binder m)
> ((module-binder m) m v #t))
> (begin
> (let ((answer (make-undefined-variable)))
> (module-add! m v answer)
> answer)))))
> [...]
>
> That should do it, or?
Well, unfortunately I don't have time to update myself on the module
system code well enough to know, but it seems OK. It's a relief that
it was much simpler to fix than I anticipated.
M