no syntax striptease there

13 years ago · e6bd91c7bc
parent b95efc8ca5
commit e6bd91c7bc
1 changed files with 1 additions and 1 deletions
--- 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))))))))