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: module system / (oop goops) / :duplicates (merge-generics) / bug? Date: Tue, 5 Jul 2011 18:32:29 -0300 Message-ID: <20110705183229.6f779a6b@rascar> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/NlMB/gkZ.MPF_Th8++6XCjI" X-Trace: dough.gmane.org 1309902070 32263 80.91.229.12 (5 Jul 2011 21:41:10 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 5 Jul 2011 21:41:10 +0000 (UTC) To: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Tue Jul 05 23:41:06 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 1QeDMe-0005xO-P3 for guile-bugs@m.gmane.org; Tue, 05 Jul 2011 23:41:04 +0200 Original-Received: from localhost ([::1]:35127 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeDMd-0005Ty-Gf for guile-bugs@m.gmane.org; Tue, 05 Jul 2011 17:41:03 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:50750) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeDEa-0003bO-CB for bug-guile@gnu.org; Tue, 05 Jul 2011 17:32:45 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QeDEZ-0008D5-0P for bug-guile@gnu.org; Tue, 05 Jul 2011 17:32:44 -0400 Original-Received: from maximusconfessor.all2all.org ([62.58.108.13]:45627) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeDEY-0008Cf-Kk for bug-guile@gnu.org; Tue, 05 Jul 2011 17:32:42 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id DEC45A04C1C8 for ; Tue, 5 Jul 2011 23:32:39 +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 Givm6uKfM+dO for ; Tue, 5 Jul 2011 23:14:07 +0200 (CEST) Original-Received: from rascar (unknown [189.60.162.202]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id A7B1FA04C2B9 for ; Tue, 5 Jul 2011 23:32:32 +0200 (CEST) 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:5703 Archived-At: --MP_/NlMB/gkZ.MPF_Th8++6XCjI Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hello, Can someone kindly look at this small example and tell me what's wrong? I get this david@rascar:~ 8 $ guile GNU Guile 2.0.0.160-39be ... scheme@(guile-user)> (use-modules (mg-3)) (letstry) mg-3.scm:17:2: In procedure letstry: mg-3.scm:17:2: In procedure module-lookup: Unbound variable: dialog Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. Many thanks, David ps: sometimes guile does not 'comeback from an error' with a prompt invitation, like in my case here above: the guile-prompt only come back after I enter something, like ,q in this case. --MP_/NlMB/gkZ.MPF_Th8++6XCjI 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-class () (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-a) ) --MP_/NlMB/gkZ.MPF_Th8++6XCjI 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-class () (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-b) ) --MP_/NlMB/gkZ.MPF_Th8++6XCjI Content-Type: text/x-scheme Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=mg-3.scm (define-module (mg-3) :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) (dialog a) (dialog b)) #! (use-modules (macros push)) (push! "/usr/local/share/guile/alto/2.0/tests" %load-path) (use-modules (mg-3)) (letstry) !# --MP_/NlMB/gkZ.MPF_Th8++6XCjI--