From c8e5f180d60e030c0dab0307f712d58a41336436 Mon Sep 17 00:00:00 2001 From: jsancho Date: Mon, 14 Nov 2011 18:54:49 +0000 Subject: [PATCH] --- src/gacela_misc.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.39.5