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)