mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

syntax-error throws to syntax-error

Browse source 
* module/language/lua/common.scm (syntax-error): Throw to
  'syntax-error.
This commit is contained in:
Andy Wingo 2010-12-10 11:28:00 +01:00 • committed by Ian Price
parent a30c18c22a
commit 32c58e2edd
1 changed files with 5 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

20
module/language/lua/common.scm
View file

@ -24,21 +24,11 @@
#:export (syntax-error or-eqv?))
(define (syntax-error src string . arguments)
"Throw an error tagged with 'lua-syntax, and print detailed source
code information when available. STRING and ARGUMENTS are given to FORMAT."
(throw 'lua-syntax
(string-append
(if src
(format #f "~a@~a.~a"
(cdr (assq 'filename src))
(cdr (assq 'line src))
(if (assq 'column src)
(cdr (assq 'column src))
"[no column available]"))
"[no source code information given]")
": "
(apply format (cons string arguments)))))
(define (syntax-error src string . args)
"Throw an error tagged with 'syntax-error, and print detailed source
code information when available. STRING and ARGS are given to FORMAT."
(throw 'syntax-error #f (apply format #f string args)
src #f #f '()))
;; I was using CASE, but this is more succinct
;; (or-eqv? 1 #f 1) => (or (eqv? 1 #f) (eqv? 1 1))