(ice-9 format) and :duplicates (merge-generics) / bug

[David Pirotte]

Hi again,

Well, playing with some other code of mine in the same field, I discovered 
something
weird: when adding the use of (ice-9 format) while using #:duplicates
(merge-generics), [see a slightly modified example of mg-3.scm attached], I get 
this
reproducible error:

scheme@(guile-user)> (use-modules (mg-3))
(letstry)
;;; note: source ...
;;; compiling /usr/local/share/guile/alto/2.0/tests/mg-3.scm
;;; mg-3.scm:19:2: warning: possibly unbound variable `format'
;;; mg-3.scm:19:30: warning: possibly unbound variable `dialog'
;;; mg-3.scm:20:2: warning: possibly unbound variable `format'
;;; mg-3.scm:20:30: warning: possibly unbound variable `dialog'
;;; compiled 
/usr/alto/staff/david/.cache/guile/ccache/2.0-LE-4-2.0/usr/local/share/guile/alto/2.0/tests/mg-3.scm.go
mg-3.scm:18:2: In procedure letstry:
mg-3.scm:18:2: In procedure module-lookup: Unbound variable: format

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> 

Cheers,
David.

;; --

Begin forwarded message:

Date: Tue, 5 Jul 2011 18:43:41 -0300
From: David Pirotte <address@hidden>
To: address@hidden
Subject: Fw: module system / (oop goops) / :duplicates (merge-generics) / bug?


Hi again,

        [in addition to my just previously posted message]

if after the error following (use-modules (mg-3)) I enter ,q and proceed, here 
is
what I get [copied from the beginning to show the 'no prompt' as well]:


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.

,q
scheme@(guile-user)> (use-modules (mg-1))
scheme@(guile-user)> (use-modules (mg-2))
scheme@(guile-user)> (dialog a)
WARNING: (guile-user): `dialog' imported from both (mg-1) and (mg-2)
ERROR: In procedure scm-error:
ERROR: No applicable method for #<<accessor> dialog (1)> in call (dialog
#<<widget-a> 9979730>)

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> 


;; --

Begin forwarded message:

Date: Tue, 5 Jul 2011 18:32:29 -0300
From: David Pirotte <address@hidden>
To: address@hidden
Subject: module system / (oop goops) / :duplicates (merge-generics) / bug?


Hello,

Can someone kindly look at this small example and tell me what's wrong? I get 
this

        address@hidden:~ 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.

mg-3.scm
Description: Text Data