implicitly using existing function as generic fails in 1.9

[Jan Nieuwenhuizen]

Hi,

See attached code, run using

   ./run.scm

1.8 says:

    14:58:59 janneke@vuurvlieg:~/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 janneke@vuurvlieg:~/vc/schikkers-list/remove
    $ rm -rf ~/.cache/guile/
    14:59:10 janneke@vuurvlieg:~/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! (_ _)>
    [1]14:59:12 janneke@vuurvlieg:~/vc/schikkers-list/remove
    $ 

I haven't found the fix or workaround other than renaming the method to
`xremove!'.

Greetings,
Jan.

remove.tar.gz
Description: application/compressed-tar