diff options
-rw-r--r-- | module/language/ecmascript/parse.scm | 2 | ||||
-rw-r--r-- | module/language/ecmascript/tokenize.scm | 2 |
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) |