Fixing bug in "no expansion" error handling for syntax-rules.

2025-07-08 13:37:35 +02:00 · 2012-03-07 07:05:18 +09:00 · 2012-03-07 07:05:18 +09:00 · bbe56ad069
commit bbe56ad069
parent 5a803b2411
1 changed files with 5 additions and 4 deletions
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@ -815,10 +815,11 @@
                 (map
                  (lambda (clause) (expand-pattern (car clause) (cadr clause)))
                  forms)
+                 (list
                  (list _cons
                        (list _error "no expansion for"
                              (list (rename 'strip-syntactic-closures) _expr))
-                       #f))))))))))
+                        #f)))))))))))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; additional syntax