Re: implicitly using existing function as generic fails in 1.9

[Andy Wingo]

On Wed 02 Feb 2011 15:02, Jan Nieuwenhuizen <address@hidden> writes:

> Hi,
>
> See attached code, run using
>
>    ./run.scm
>
> 1.8 says:
>
>     14:58:59 address@hidden:~/vc/schikkers-list/remove
>     $ ./run.scm
>     WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remove)
>     <class>: remove!
>
> 1.9.14 says:
>
> 14:58:36 address@hidden:~/vc/schikkers-list/remove
>     $ rm -rf ~/.cache/guile/
>     14:59:10 address@hidden:~/vc/schikkers-list/remove
>     $ ./run.scm
>     ;;; note: autocompilation is enabled, set GUILE_AUTO_COMPILE=0
>     ;;;       or pass the --no-autocompile argument to disable.
>     ;;; compiling ./run.scm
>     ;;; compiling /home/janneke/vc/schikkers-list/remove/use.scm
>     ;;; compiling /home/janneke/vc/schikkers-list/remove/remove.scm
>     ;;; compiled 
> /home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/remove/remove.scm.go
>     WARNING: (use): `remove!' imported from both (remove) and (srfi srfi-1)
>     ;;; compiled 
> /home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/remove/use.scm.go
>     ;;; compiled 
> /home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/remove/run.scm.go
>     WARNING: (use): `remove!' imported from both (remove) and (srfi srfi-1)
>     WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remove)
>     WARNING: (use): `remove!' imported from both (remove) and (srfi srfi-1)
>     Backtrace:
>     In module/ice-9/boot-9.scm:
>      170: 9 [catch #t #<catch-closure 86525a0> ...]
>     In unknown file:
>        ?: 8 [catch-closure]
>     In module/ice-9/boot-9.scm:
>       62: 7 [call-with-prompt prompt0 ...]
>     In module/ice-9/eval.scm:
>      389: 6 [eval # #]
>     In module/ice-9/boot-9.scm:
>     1864: 5 [save-module-excursion #<procedure 8660b88 at 
> module/ice-9/boot-9.scm:1878:3 ()>]
>     1172: 4 [load "./run.scm" #f]
>     In unknown file:
>        ?: 3 [load-compiled/vm 
> "/home/janneke/.cache/guile/ccache/2.0-0.T-LE-4/home/janneke/vc/schikkers-list/remove/run.scm.go"]
>        ?: 2 [remove! #<<cls> 8b36380>]
>     In module/ice-9/boot-9.scm:
>      115: 1 [#<procedure 85c64d8 at module/ice-9/boot-9.scm:110:6 (thrown-k . 
> args)> wrong-number-of-args ...]
>     In unknown file:
>        ?: 0 [catch-closure wrong-number-of-args #f ...]
>
>     ERROR: In procedure catch-closure:
>     ERROR: Wrong number of arguments to #<procedure remove! (_ _)>

Happily this is the same bug I fixed a couple days ago.

   $ /opt/guile/env ./run.scm 
   ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
   ;;;       or pass the --no-auto-compile argument to disable.
   ;;; compiling /tmp/remove/run.scm
   ;;; compiling /tmp/remove/use.scm
   ;;; compiling /tmp/remove/remove.scm
   ;;; compiled 
/home/wingo/.cache/guile/ccache/2.0-LE-8-2.0/tmp/remove/remove.scm.go
   WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remove)
   ;;; compiled 
/home/wingo/.cache/guile/ccache/2.0-LE-8-2.0/tmp/remove/use.scm.go
   ;;; compiled 
/home/wingo/.cache/guile/ccache/2.0-LE-8-2.0/tmp/remove/run.scm.go
   WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remove)
   <class>: remove!

Cheers,

Andy
-- 
http://wingolog.org/