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 /module/language/ecmascript/parse.scm | |
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.
Diffstat (limited to 'module/language/ecmascript/parse.scm')
-rw-r--r-- | module/language/ecmascript/parse.scm | 2 |
1 files changed, 1 insertions, 1 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))) |