Re: implicitly using existing function as generic fails in 1.9

[Jan Nieuwenhuizen <janneke-list@xs4all.nl>]

[-- Attachment #1: Type: text/plain, Size: 1009 bytes --]

Andy Wingo schreef op vr 11-02-2011 om 18:48 [+0100]:
> On Wed 02 Feb 2011 15:02, Jan Nieuwenhuizen <janneke-list@xs4all.nl> writes:
> 
> >     WARNING: (use): `remove!' imported from both (remove) and (srfi srfi-1)
> 
> As far as I can tell, it never worked to merge generics between a
> regular procedure and a generic.

> And indeed that does not appear to work with 1.8.

I'm attaching the individual files; this works with 1.8.7:

    19:52:20 janneke@vuurvlieg:~/vc/schikkers-list/remove
    $ ./run.scm 
    WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remove)
    <class>: remove!
    19:52:24 janneke@vuurvlieg:~/vc/schikkers-list/remove

> I don't understand what's going on here, really.  Do you?

No, and if you say it's not supported, I'll just have to
choose other names for those functions.

Jan.

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl  

[-- Attachment #2: use.scm --]
[-- Type: text/x-scheme, Size: 180 bytes --]

(define-module (use)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  #:use-module (remove)
  #:export (main))

(define obj (make <cls>))

(define (main)
  (remove! obj))

[-- Attachment #3: run.scm --]
[-- Type: text/x-scheme, Size: 122 bytes --]

#! /bin/sh
# -*- scheme -*-
exec guile --debug -L $(dirname $0) -s $0 "$@"
!#

;;(use-modules
;; (use))

((@ (use) main))

[-- Attachment #4: remove.scm --]
[-- Type: text/x-scheme, Size: 246 bytes --]


(define-module (remove)
  #:use-module (oop goops)
  #:use-module (srfi srfi-1)
  #:duplicates (merge-generics)
  #:export (<cls>
	    remove!))

(define-class <cls> ())

(define-method (remove! (self <cls>))
  (format #t "<class>: remove!\n"))