From bbe56ad069623dcb397dc18c3b7106049f32800a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 7 Mar 2012 07:05:18 +0900
Subject: [PATCH] Fixing bug in "no expansion" error handling for syntax-rules.

---
 lib/init-7.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index 8093e446..13d2e465 100644
--- 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 _cons
-                       (list _error "no expansion for"
-                             (list (rename 'strip-syntactic-closures) _expr))
-                       #f))))))))))
+                 (list
+                  (list _cons
+                        (list _error "no expansion for"
+                              (list (rename 'strip-syntactic-closures) _expr))
+                        #f)))))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; additional syntax