From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Mikael Djurfeldt Newsgroups: gmane.lisp.guile.bugs Subject: Re: Strange undefined binding bug coupled to module system Date: Wed, 22 Dec 2004 21:29:53 +0100 Message-ID: <66e540fe041222122910e8c8ac@mail.gmail.com> References: Reply-To: djurfeldt@nada.kth.se NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1103747444 24549 80.91.229.6 (22 Dec 2004 20:30:44 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 22 Dec 2004 20:30:44 +0000 (UTC) Cc: djurfeldt@nada.kth.se Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Dec 22 21:30:34 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1ChD7y-0000uW-00 for ; Wed, 22 Dec 2004 21:30:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1ChDIX-0002IG-7x for guile-bugs@m.gmane.org; Wed, 22 Dec 2004 15:41:29 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1ChDI6-00029a-3V for bug-guile@gnu.org; Wed, 22 Dec 2004 15:41:02 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1ChDI4-00028r-HJ for bug-guile@gnu.org; Wed, 22 Dec 2004 15:41:00 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1ChDI4-00028Q-DE for bug-guile@gnu.org; Wed, 22 Dec 2004 15:41:00 -0500 Original-Received: from [64.233.170.201] (helo=rproxy.gmail.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1ChD7L-00023E-Lu for bug-guile@gnu.org; Wed, 22 Dec 2004 15:29:55 -0500 Original-Received: by rproxy.gmail.com with SMTP id a36so12193rnf for ; Wed, 22 Dec 2004 12:29:54 -0800 (PST) DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:reply-to:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:references; b=oWWGh5E+y0yvZLjDT0OYWuwueOayRez1cnb1oGRT17FVxPqqXcl822ikehhpGntMCXAapxfAFwOe3HyHMGmIGimQB5jibRP0fShGc4gKQMLmq44GBe3MS1GjPlNXkW7O/LZqir7G4mPQj9OEWIPY5l1H1dT9espNiiETzWChL+I= Original-Received: by 10.38.99.18 with SMTP id w18mr384822rnb; Wed, 22 Dec 2004 12:29:53 -0800 (PST) Original-Received: by 10.38.104.29 with HTTP; Wed, 22 Dec 2004 12:29:53 -0800 (PST) Original-To: Marius Vollmer , bug-guile@gnu.org In-Reply-To: X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:2329 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:2329 On Wed, 22 Dec 2004 16:35:18 +0100, Marius Vollmer 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 _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://lists.gnu.org/mailman/listinfo/bug-guile