From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.user Subject: Re: Is ice-9/poe.scm broken? Date: Wed, 10 Aug 2005 11:56:46 +1000 Message-ID: <87u0hyo8pt.fsf@zip.com.au> References: <42F77FAA.5020001@mail.msen.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1123641430 21119 80.91.229.2 (10 Aug 2005 02:37:10 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 10 Aug 2005 02:37:10 +0000 (UTC) Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Wed Aug 10 04:37:08 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1E2gS1-0002Ot-OT for guile-user@m.gmane.org; Wed, 10 Aug 2005 04:36:18 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1E2gV7-0000QK-9o for guile-user@m.gmane.org; Tue, 09 Aug 2005 22:39:29 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1E2gTA-0007rn-Ke for guile-user@gnu.org; Tue, 09 Aug 2005 22:37:28 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1E2gT7-0007r2-8u for guile-user@gnu.org; Tue, 09 Aug 2005 22:37:28 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1E2gOv-0006qk-4W for guile-user@gnu.org; Tue, 09 Aug 2005 22:33:05 -0400 Original-Received: from [61.8.0.84] (helo=mailout1.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.34) id 1E2g40-0005Y5-5b for guile-user@gnu.org; Tue, 09 Aug 2005 22:11:28 -0400 Original-Received: from mailproxy2.pacific.net.au (mailproxy2.pacific.net.au [61.8.0.87]) by mailout1.pacific.net.au (8.13.4/8.13.4/Debian-3) with ESMTP id j7A1updB012318; Wed, 10 Aug 2005 11:56:51 +1000 Original-Received: from localhost (ppp28F4.dyn.pacific.net.au [61.8.40.244]) by mailproxy2.pacific.net.au (8.13.4/8.13.4/Debian-3) with ESMTP id j7A1uoB1013650; Wed, 10 Aug 2005 11:56:51 +1000 Original-Received: from gg by localhost with local (Exim 3.36 #1 (Debian)) id 1E2fpn-0007FJ-00; Wed, 10 Aug 2005 11:56:47 +1000 Original-To: guile-user@gnu.org In-Reply-To: <42F77FAA.5020001@mail.msen.com> (Alan Grover's message of "Mon, 08 Aug 2005 11:52:10 -0400") User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux) X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:4678 Alan Grover writes: > > I re-wrote enough of poe.scm to get some things working. In the cvs head a while ago I changed funcq-assoc to the code below. Dunno why I didn't do the same in 1.6 (maybe the hashx stuff has problems too). You're right that it doesn't work. ;; return true if lists X and Y are the same length and each element ;; is `eq?' (define (eq?-list x y) (if (null? x) (null? y) (and (not (null? y)) (eq? (car x) (car y)) (eq?-list (cdr x) (cdr y))))) (define (funcq-assoc arg-list alist) (if (null? alist) #f (if (eq?-list arg-list (caar alist)) (car alist) (funcq-assoc arg-list (cdr alist))))) _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://lists.gnu.org/mailman/listinfo/guile-user