From: jsancho <devnull@localhost>
Date: Mon, 14 Nov 2011 18:54:49 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=c8e5f180d60e030c0dab0307f712d58a41336436;p=gacela.git

---

diff --git a/src/gacela_misc.scm b/src/gacela_misc.scm
index 6dd13b1..8e8db13 100644
--- a/src/gacela_misc.scm
+++ b/src/gacela_misc.scm
@@ -56,9 +56,9 @@
 	  (else (power (* p 2) n))))
   (power 1 n))
 
-(define-macro (pushnew elem list)
-  `(cond ((not (find (lambda (e) (eq? e ,elem)) ,list))
-	  (set! ,list (cons ,elem ,list)))))
+;(define-macro (pushnew elem list)
+;  `(cond ((not (find (lambda (e) (eq? e ,elem)) ,list))
+;	  (set! ,list (cons ,elem ,list)))))
 
 (define (assoc-multiple-set! alist . pairs)
   (define (amset! alist pairs)