mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

ecmascript syntax errors throw to 'syntax-error

Browse source 
* module/language/ecmascript/parse.scm (syntax-error):
* module/language/ecmascript/tokenize.scm (syntax-error): Throw to
  'syntax-error as psyntax does.
This commit is contained in:
Andy Wingo 2010-11-16 02:09:39 +01:00
parent 8f1870f20f
commit 1811d0332f
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/ecmascript/parse.scm
View file

@ -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)))

2
module/language/ecmascript/tokenize.scm
View file

@ -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)