module system / (oop goops) / :duplicates (merge-generics) / bug?

[David Pirotte <david@altosw.be>]

[-- Attachment #1: Type: text/plain, Size: 598 bytes --]

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.


[-- Attachment #2: mg-1.scm --]
[-- Type: text/x-scheme, Size: 232 bytes --]


(define-module (mg-1)
  :use-module (oop goops)

  :duplicates (merge-generics)

  :export (<widget-a>
	    dialog
	    ))



(define-class <widget-a> ()
  (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-a)
  )


[-- Attachment #3: mg-2.scm --]
[-- Type: text/x-scheme, Size: 233 bytes --]


(define-module (mg-2)
  :use-module (oop goops)

  :duplicates (merge-generics)

  :export (<widget-b>
	    dialog
	    ))



(define-class <widget-b> ()
  (dialog :accessor dialog :init-keyword :dialog :init-value 'dialog-b)
  )



[-- Attachment #4: mg-3.scm --]
[-- Type: text/x-scheme, Size: 399 bytes --]


(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 <widget-a>))
(define b (make <widget-b>))

(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)

!#