* (ice-9 format) and :duplicates (merge-generics) / bug
@ 2011-07-05 23:05 David Pirotte
0 siblings, 0 replies; only message in thread
From: David Pirotte @ 2011-07-05 23:05 UTC (permalink / raw)
To: bug-guile
[-- Attachment #1: Type: text/plain, Size: 2829 bytes --]
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 <david@altosw.be>
To: bug-guile@gnu.org
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 <david@altosw.be>
To: bug-guile@gnu.org
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
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-3.scm --]
[-- Type: text/x-scheme, Size: 486 bytes --]
(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 <widget-a>))
(define b (make <widget-b>))
(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)
!#
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2011-07-05 23:05 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-07-05 23:05 (ice-9 format) and :duplicates (merge-generics) / bug David Pirotte
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).