summaryrefslogtreecommitdiff
path: root/module/language/ecmascript/parse.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-16 02:09:39 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-16 02:57:27 +0100
commit1811d0332f145f8e393c790cf21529c92626bf3e (patch)
tree176fd0b76d149fb38f87d062826db062e9fe86ae /module/language/ecmascript/parse.scm
parent8f1870f20f3a6dcd74078d7cc52523dfa2a2a494 (diff)
downloadguile-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.scm2
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)))