From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.bugs Subject: Re: module system / (oop goops) / :duplicates (merge-generics) / bug? Date: Wed, 6 Jul 2011 16:22:44 -0300 Message-ID: <20110706162244.2bf4b90a@rascar> References: <20110705183229.6f779a6b@rascar> <87vcvfcrjc.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/55f9T46nEohy/SB0FQNH7wR" X-Trace: dough.gmane.org 1309982679 1980 80.91.229.12 (6 Jul 2011 20:04:39 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 6 Jul 2011 20:04:39 +0000 (UTC) Cc: bug-guile@gnu.org To: ludo@gnu.org (Ludovic =?UTF-8?B?Q291cnTDqHM=?=) Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Jul 06 22:04:34 2011 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QeYKo-0004jw-1R for guile-bugs@m.gmane.org; Wed, 06 Jul 2011 22:04:34 +0200 Original-Received: from localhost ([::1]:42110 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeYKm-0003Ou-Rq for guile-bugs@m.gmane.org; Wed, 06 Jul 2011 16:04:33 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56640) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeXgZ-0000Jr-Sj for bug-guile@gnu.org; Wed, 06 Jul 2011 15:23:00 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QeXgY-0007I8-8N for bug-guile@gnu.org; Wed, 06 Jul 2011 15:22:59 -0400 Original-Received: from maximusconfessor.all2all.org ([62.58.108.13]:44955) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeXgX-0007I0-ES; Wed, 06 Jul 2011 15:22:57 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id CCB59A04C2A4; Wed, 6 Jul 2011 21:22:55 +0200 (CEST) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id jZyrZYTWNywe; Wed, 6 Jul 2011 21:04:22 +0200 (CEST) Original-Received: from rascar (unknown [189.60.162.202]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id 39706A04C282; Wed, 6 Jul 2011 21:22:47 +0200 (CEST) In-Reply-To: <87vcvfcrjc.fsf@gnu.org> X-Mailer: Claws Mail 3.7.9 (GTK+ 2.24.4; i486-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 62.58.108.13 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:5710 Archived-At: --MP_/55f9T46nEohy/SB0FQNH7wR Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hello Ludovic, > > david@rascar:~ 8 $ guile > > GNU Guile 2.0.0.160-39be > > I think commit ad4bd7c2c0c931a91160772e5ebf40af0f471874 (in 2.0.2) fixes > this. Can you check with 2.0.2? [I should have pulled the latest off course, I am sorry] I slightly modified the mg-*.scm files: mg-1 and mg-2: [a] did not need to use :duplicates; [b] I commented out define-generic, on purpose, since it is my understanding [is it right?] that :accessor will do it for me; mg-3: [c] added (ice-9 format) in mg-3 since it did show 'another' [maybe] problem. I got the same errors: 1] with (ice-9 format): david@asterix:/usr/local/share/guile/alto/2.0/tests 1 $ guile GNU Guile 2.0.2.3-21b6d ... scheme@(guile-user)> (use-modules (mg-3)) (letstry) mg-3.scm:19:2: In procedure letstry: mg-3.scm:19:2: In procedure module-lookup: Unbound variable: format Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. 2] without: .. (use-modules (mg-3)) (letstry) .. mg-3.scm:19:30: In procedure letstry: mg-3.scm:19:30: In procedure module-lookup: Unbound variable: dialog Cheers, David --MP_/55f9T46nEohy/SB0FQNH7wR Content-Type: text/x-scheme Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=mg-1.scm (define-module (mg-1) :use-module (oop goops) :duplicates (merge-generics) :export ( dialog )) (define-generic dialog) (define-class () (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-a) ) --MP_/55f9T46nEohy/SB0FQNH7wR Content-Type: text/x-scheme Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=mg-2.scm (define-module (mg-2) :use-module (oop goops) :duplicates (merge-generics) :export ( dialog )) (define-generic dialog) (define-class () (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-b) ) --MP_/55f9T46nEohy/SB0FQNH7wR Content-Type: text/x-scheme Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=mg-3.scm (define-module (mg-3) :use-module (ice-9 format) :use-module (oop goops) :use-module (mg-1) :use-module (mg-2) :duplicates (merge-generics) :export (a b letstry)) (define a (make )) (define b (make )) (define (letstry) (format #t "Dialog a: ~S~%" (dialog a)) (format #t "Dialog b: ~S~%" (dialog b))) #! (use-modules (macros push)) (push! "/usr/local/share/guile/alto/2.0/tests" %load-path) (use-modules (mg-3)) (letstry) !# --MP_/55f9T46nEohy/SB0FQNH7wR--