diff --git a/src/ikarus.boot b/src/ikarus.boot index e7ad493..ad7a8e2 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.syntax.ss b/src/ikarus.syntax.ss index 9f8568e..fee3cac 100644 --- a/src/ikarus.syntax.ss +++ b/src/ikarus.syntax.ss @@ -410,7 +410,7 @@ (stx-error e "unbound identifier")) (case type [(lexical core-prim macro global local-macro - global-macro displaced-lexical) + global-macro displaced-lexical syntax) (values type (binding-value b) id)] [else (values 'other #f #f)])))] [(syntax-pair? e) @@ -1622,6 +1622,7 @@ (chi-expr* (cons x x*) r mr))])] [(displaced-lexical) (stx-error e "identifier out of context")] + [(syntax) (stx-error e "reference to pattern variable outside a syntax form")] [else (error 'chi-expr "invalid type ~s for ~s" type (strip e '())) (stx-error e)])))) (define chi-set!