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

fix syntax-error printing

Browse source 
* module/ice-9/boot-9.scm: Fix to make "extra" a rest arg.
This commit is contained in:
Andy Wingo 2011-02-12 16:38:02 +01:00
parent aae64b37e5
commit dc20f5a809
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -544,7 +544,7 @@ If there is no handler at all, Guile prints an error and then exits."
(define (syntax-error-printer port key args default-printer) (define (syntax-error-printer port key args default-printer)
(apply (case-lambda (apply (case-lambda
((who what where form subform extra) ((who what where form subform . extra)
(format port "Syntax error:\n") (format port "Syntax error:\n")
(if where (if where
(let ((file (or (assq-ref where 'filename) "unknown file")) (let ((file (or (assq-ref where 'filename) "unknown file"))