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

[David Pirotte <david@altosw.be>]

Hi Andy,

Le Thu, 18 Aug 2011 13:01:34 +0200,
Andy Wingo <wingo@pobox.com> a écrit :

> Hi David,
> 
> I fixed it!

Thank you very much! The examples I sent earlier now all work, but I still have a
problem when running my app [the app is working perfectly if I name differently all
exported slot accessors, which I did while you were debugging]: I am trying to
figure out what is happening and hope to get back with a better 'figure' but here is
the backtrace I get [below].

	note that I did double check [in the gtk-repl before to click the 'print
	button' which triggers the error] that (default-duplicate-binding-handler)
	is effectively 'global' [in my init.scm] and returns what 'it should':
		(merge-generics replace warn-override-core warn last)

It is strange because the ERROR mentions No applicable method for #<<generic> show
(2)> in call (show #<procedure a279930 at oop/goops/dispatch.scm:196:4 args>)

     show is the gtk function of course, and the argument I pass should be the result of
     the following code extract [of a module which uses many others, 2 of which both
     export dialog]:

	...
	(define (kp/select-gui tl-widget)
	  (let* ((kp/widget (kp/make-dialog (dialog tl-widget) (glade-file tl-widget))) 
		   (widget (dialog kp/widget)))
	    (show widget)
	...

so as if (dialog kp/widget) returned a procedure ? As i said i will try to or debug
or better inform you, but if you have an idea, let me know...

Cheers,
David

;; -- 

scheme@(guile-user) [1]> Backtrace:
In unknown file:
   ?: 19 [scm-error goops-error #f ...]
In ice-9/boot-9.scm:
 115: 18 [#<procedure a5de5c8 at ice-9/boot-9.scm:110:6 (thrown-k . args)> goops-error ...]
In ice-9/r4rs.scm:
 174: 17 [with-input-from-port #<variable 9f15ad0 value: #<input: soft 9c20e10>> ...]
 178: 16 [with-output-to-port #<variable 9f15940 value: #<output: soft 9c20690>> ...]
 182: 15 [with-error-to-port #<variable 9f15780 value: #<output: soft 9c20690>> ...]
In system/repl/repl.scm:
 160: 14 [run-repl #<<repl> language: # options: # tm-stats: # gc-stats: # debug: #>]
In ice-9/boot-9.scm:
 170: 13 [catch #t #<procedure a24a650 at system/repl/repl.scm:115:4 ()> ...]
In ice-9/r4rs.scm:
 174: 12 [with-input-from-port #<variable 9b319f0 value: #<input: soft 9c20e10>> ...]
In system/repl/repl.scm:
  88: 11 [#<procedure a279d50 at system/repl/repl.scm:87:6 ()>]
 213: 10 [flush-leading-whitespace]
In unknown file:
   ?: 9 [peek-char #<undefined>]
In ice-9/buffered-input.scm:
  73: 8 [get-character]
 104: 7 [#<procedure 9d42400 at ice-9/buffered-input.scm:103:28 (continuation?)> #t]
In gnome/gtk/graphical-repl.scm:
 269: 6 [#<procedure a1218a0 at gnome/gtk/graphical-repl.scm:260:16 (continuation?)> #t]
In unknown file:
   ?: 5 [%gw:dynamic-procedure #<gw:wcp <g-main-loop> 0xa7e7f28>]
In ice-9/boot-9.scm:
 170: 4 [catch #t #<catch-closure a27be10> ...]
In unknown file:
   ?: 3 [catch-closure]
In kise/print.scm:
  56: 2 [kp/select-gui #<<kise/tl-widget> 9ecae00>]
In oop/goops/dispatch.scm:
 231: 1 [cache-miss # #]
In unknown file:
   ?: 0 [scm-error goops-error #f ...]

ERROR: In procedure scm-error:
ERROR: No applicable method for #<<generic> show (2)> in call (show #<procedure a279930 at oop/goops/dispatch.scm:196:4 args>)