~ chicken-r7rs (master) 4094266c5056fd376145444c293bf07e8b46721d

commit 4094266c5056fd376145444c293bf07e8b46721d
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Oct 26 05:31:16 2014 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Oct 26 05:31:16 2014 +0000

    Fix misnamed internal syntax-error procedure

diff --git a/synrules.scm b/synrules.scm
index 3654038..c797c00 100644
--- a/synrules.scm
+++ b/synrules.scm
@@ -128,7 +128,7 @@
                                         0
                                         ellipsis?
                                         (meta-variables pattern 0 ellipsis? '() #f)))))
-         (##sys#syntax-error "ill-formed syntax rule" rule)))
+         (##sys#syntax-error-hook "ill-formed syntax rule" rule)))
 
    ;; Generate code to test whether input expression matches pattern