From 0a9bff353fd5446289b8945f77d18ca06313c826 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 21 Mar 2011 15:35:16 +0900
Subject: [PATCH] adding syntax-error

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

diff --git a/lib/init.scm b/lib/init.scm
index f78d5e87..4bb3bc5c 100644
--- a/lib/init.scm
+++ b/lib/init.scm
@@ -604,6 +604,11 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; syntax-rules
 
+(define-syntax syntax-error
+  (er-macro-transformer
+   (lambda (expr rename compare)
+     (apply error (cdr expr)))))
+
 (define-syntax syntax-rules
   (er-macro-transformer
    (lambda (expr rename compare)