diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-16 02:09:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-16 02:57:27 +0100 |
commit | 1811d0332f145f8e393c790cf21529c92626bf3e (patch) | |
tree | 176fd0b76d149fb38f87d062826db062e9fe86ae | |
parent | 8f1870f20f3a6dcd74078d7cc52523dfa2a2a494 (diff) | |
download | guile-1811d0332f145f8e393c790cf21529c92626bf3e.tar.gz |
ecmascript syntax errors throw to 'syntax-error
* module/language/ecmascript/parse.scm (syntax-error):
* module/language/ecmascript/tokenize.scm (syntax-error): Throw to
'syntax-error as psyntax does.
-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) |