From 1811d0332f145f8e393c790cf21529c92626bf3e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 16 Nov 2010 02:09:39 +0100 Subject: [PATCH] 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. --- module/language/ecmascript/parse.scm | 2 +- module/language/ecmascript/tokenize.scm | 2 +- 2 files changed, 2 insertions(+), 2 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))) diff --git a/module/language/ecmascript/tokenize.scm b/module/language/ecmascript/tokenize.scm index 65a8b1e62..270a472d3 100644 --- a/module/language/ecmascript/tokenize.scm +++ b/module/language/ecmascript/tokenize.scm @@ -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)