X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_misc.scm;fp=src%2Fgacela_misc.scm;h=8e8db1341bbbecda9e4ea149eabe475a50db2f28;hb=c8e5f180d60e030c0dab0307f712d58a41336436;hp=6dd13b11a8acd7844c1943279b0c5f2aebc51ee1;hpb=21a68f9889c04e0b1697bab7af844046e4da02bf;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)