From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jan Nieuwenhuizen Newsgroups: gmane.lisp.guile.devel Subject: Re: implicitly using existing function as generic fails in 1.9 Date: Fri, 11 Feb 2011 19:53:06 +0100 Organization: www.AvatarAcademy.nl Message-ID: <1297450386.2325.263.camel@vuurvlieg> References: <1296655370.19670.270.camel@vuurvlieg> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-+8JgkjbcbWtn35Ug/gaB" X-Trace: dough.gmane.org 1297450409 11159 80.91.229.12 (11 Feb 2011 18:53:29 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 11 Feb 2011 18:53:29 +0000 (UTC) Cc: guile-devel To: Andy Wingo Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Feb 11 19:53:24 2011 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Pny7Q-0007eS-Am for guile-devel@m.gmane.org; Fri, 11 Feb 2011 19:53:24 +0100 Original-Received: from localhost ([127.0.0.1]:49043 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pny7P-0005Vt-KY for guile-devel@m.gmane.org; Fri, 11 Feb 2011 13:53:23 -0500 Original-Received: from [140.186.70.92] (port=32982 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pny7C-0005Tn-9p for guile-devel@gnu.org; Fri, 11 Feb 2011 13:53:11 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pny7A-0003by-MQ for guile-devel@gnu.org; Fri, 11 Feb 2011 13:53:09 -0500 Original-Received: from smtp-vbr19.xs4all.nl ([194.109.24.39]:4486) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Pny7A-0003be-BB for guile-devel@gnu.org; Fri, 11 Feb 2011 13:53:08 -0500 Original-Received: from [192.168.1.112] (peder.onsbrabantnet.nl [88.159.206.46] (may be forged)) (authenticated bits=0) by smtp-vbr19.xs4all.nl (8.13.8/8.13.8) with ESMTP id p1BIr7OM049106; Fri, 11 Feb 2011 19:53:07 +0100 (CET) (envelope-from janneke-list@xs4all.nl) In-Reply-To: X-Mailer: Evolution 2.30.3 X-Virus-Scanned: by XS4ALL Virus Scanner X-detected-operating-system: by eggs.gnu.org: FreeBSD 4.6-4.9 X-Received-From: 194.109.24.39 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:11563 Archived-At: --=-+8JgkjbcbWtn35Ug/gaB Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-MIME-Autoconverted: from 8bit to quoted-printable by smtp-vbr19.xs4all.nl id p1BIr7OM049106 Andy Wingo schreef op vr 11-02-2011 om 18:48 [+0100]: > On Wed 02 Feb 2011 15:02, Jan Nieuwenhuizen wr= ites: >=20 > > WARNING: (use): `remove!' imported from both (remove) and (srfi s= rfi-1) >=20 > 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=20 WARNING: (use): `remove!' imported from both (srfi srfi-1) and (remov= e) : 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. --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.= nl =20 --=-+8JgkjbcbWtn35Ug/gaB Content-Disposition: attachment; filename="use.scm" Content-Type: text/x-scheme; name="use.scm"; charset="UTF-8" Content-Transfer-Encoding: 7bit (define-module (use) #:use-module (oop goops) #:use-module (srfi srfi-1) #:use-module (remove) #:export (main)) (define obj (make )) (define (main) (remove! obj)) --=-+8JgkjbcbWtn35Ug/gaB Content-Disposition: attachment; filename="run.scm" Content-Type: text/x-scheme; name="run.scm"; charset="UTF-8" Content-Transfer-Encoding: 7bit #! /bin/sh # -*- scheme -*- exec guile --debug -L $(dirname $0) -s $0 "$@" !# ;;(use-modules ;; (use)) ((@ (use) main)) --=-+8JgkjbcbWtn35Ug/gaB Content-Disposition: attachment; filename="remove.scm" Content-Type: text/x-scheme; name="remove.scm"; charset="UTF-8" Content-Transfer-Encoding: 7bit (define-module (remove) #:use-module (oop goops) #:use-module (srfi srfi-1) #:duplicates (merge-generics) #:export ( remove!)) (define-class ()) (define-method (remove! (self )) (format #t ": remove!\n")) --=-+8JgkjbcbWtn35Ug/gaB--