summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/ecmascript/parse.scm2
-rw-r--r--module/language/ecmascript/tokenize.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/module/language/ecmascript/parse.scm b/module/language/ecmascript/parse.scm
index e9d6673ce..4c2311798 100644
--- a/module/language/ecmascript/parse.scm
+++ b/module/language/ecmascript/parse.scm
@@ -24,7 +24,7 @@
#:export (read-ecmascript read-ecmascript/1 make-parser))
(define (syntax-error message . args)
- (apply throw 'SyntaxError message args))
+ (throw 'syntax-error 'tokenize #f message #f #f args))
(define (read-ecmascript port)
(let ((parse (make-parser)))
diff --git a/module/language/ecmascript/tokenize.scm b/module/language/ecmascript/tokenize.scm
index 65a8b1e62..270a472d3 100644
--- a/module/language/ecmascript/tokenize.scm
+++ b/module/language/ecmascript/tokenize.scm
@@ -25,7 +25,7 @@
#:export (next-token make-tokenizer make-tokenizer/1 tokenize tokenize/1))
(define (syntax-error message . args)
- (apply throw 'SyntaxError message args))
+ (throw 'syntax-error 'tokenize #f message #f #f args))
;; taken from SSAX, sorta
(define (read-until delims port)