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

better errors for ecmascript parser too

Browse source 
* module/language/ecmascript/parse.scm (syntax-error): Better errors
  here too.
This commit is contained in:
Andy Wingo 2010-11-18 13:03:49 +01:00
parent b8b6343318
commit 96fa68966d
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,8 +23,15 @@
#:use-module (language ecmascript tokenize)
#:export (read-ecmascript read-ecmascript/1 make-parser))
(define (syntax-error message . args)
(throw 'syntax-error 'tokenize #f message #f #f args))
(define* (syntax-error message #:optional token)
(if (lexical-token? token)
(throw 'syntax-error #f message
(and=> (lexical-token-source token)
source-location->source-properties)
(or (lexical-token-value token)
(lexical-token-category token))
#f)
(throw 'syntax-error #f message #f token #f)))
(define (read-ecmascript port)
(let ((parse (make-parser)))