summaryrefslogtreecommitdiff
path: root/module/language/ecmascript/parse.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-02-22 11:20:15 +0100
committerAndy Wingo <wingo@pobox.com>2009-02-22 11:20:15 +0100
commit0b229e81a7420c55bd42c1b30d86d52bf9f32cb9 (patch)
tree2aef0a04db1bfdd8142add716298188bae14c51f /module/language/ecmascript/parse.scm
parentaf6c20b731c66397ab3886e162d6b6252d810cbb (diff)
downloadguile-0b229e81a7420c55bd42c1b30d86d52bf9f32cb9.tar.gz
throw SyntaxError on bad syntax
* module/language/ecmascript/parse.scm (syntax-error): * module/language/ecmascript/tokenize.scm (syntax-error): Throw an error on bad syntax.
Diffstat (limited to 'module/language/ecmascript/parse.scm')
-rw-r--r--module/language/ecmascript/parse.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/module/language/ecmascript/parse.scm b/module/language/ecmascript/parse.scm
index 86b7176fc..e96278ca2 100644
--- a/module/language/ecmascript/parse.scm
+++ b/module/language/ecmascript/parse.scm
@@ -24,11 +24,14 @@
#:use-module (language ecmascript tokenize)
#:export (read-ecmascript read-ecmascript/1 parse-ecmascript))
+(define (syntax-error message . args)
+ (apply throw 'SyntaxError message args))
+
(define (read-ecmascript port)
- (parse-ecmascript (make-tokenizer port) pk))
+ (parse-ecmascript (make-tokenizer port) syntax-error))
(define (read-ecmascript/1 port)
- (parse-ecmascript (make-tokenizer/1 port) pk))
+ (parse-ecmascript (make-tokenizer/1 port) syntax-error))
(define *eof-object*
(call-with-input-string "" read-char))