diff options
author | Andy Wingo <wingo@pobox.com> | 2009-02-22 11:20:15 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-02-22 11:20:15 +0100 |
commit | 0b229e81a7420c55bd42c1b30d86d52bf9f32cb9 (patch) | |
tree | 2aef0a04db1bfdd8142add716298188bae14c51f /module/language/ecmascript/parse.scm | |
parent | af6c20b731c66397ab3886e162d6b6252d810cbb (diff) | |
download | guile-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.scm | 7 |
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)) |