From b5962fa8bb41acaba64c84f890d9170b5743552e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 11 Feb 2016 23:37:34 -0500
Subject: [PATCH] Added syntax-error

---
 scheme/base.sld | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 597cee61..ee563eb2 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -137,6 +137,7 @@
     exact
     inexact
     eof-object
+    syntax-error
 
 ;;;;
 ; Possibly missing functions:
@@ -187,7 +188,6 @@
 ;    textual-port?
 ;
 ;    ;; syntax-rules
-;    syntax-error
 ;    syntax-rules
 ;    parameterize
 ;    define-values
@@ -450,6 +450,11 @@
              (else x)))
           (qq (cadr expr) 0))))
 
+    (define-syntax syntax-error
+      (er-macro-transformer
+        (lambda (expr rename compare)
+          (apply error (cdr expr)))))
+
     ;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
     (define call-with-current-continuation call/cc)
     ;; TODO: this is from r7rs, but is not really good enough by itself