|
From: | Kevin Ryde |
Subject: | Re: Is ice-9/poe.scm broken? |
Date: | Wed, 10 Aug 2005 11:56:46 +1000 |
User-agent: | Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux) |
Alan Grover <address@hidden> 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)))))
[Prev in Thread] | Current Thread | [Next in Thread] |