From e6bd91c7bcf747921c50d6b132c1240d6d9fac6f Mon Sep 17 00:00:00 2001 From: Moritz Heidkamp Date: Wed, 17 Aug 2011 20:04:11 +0200 Subject: [PATCH] no syntax striptease there --- foops.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/foops.scm b/foops.scm index 86360bb..39bc317 100644 --- a/foops.scm +++ b/foops.scm @@ -38,7 +38,7 @@ (match args ,@(map (lambda (m) - `(((quote ,(strip-syntax (caar m))) . ,(cdar m)) + `(((quote ,(caar m)) . ,(cdar m)) . ,(cdr m))) (cddr x)) (_ (apply ancestor self* args))))))))