summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-12 16:38:02 +0100
committerAndy Wingo <wingo@pobox.com>2011-02-12 16:38:02 +0100
commitdc20f5a80943d0f7661848c4d1f6141897f6111b (patch)
treee9e00a5e225dae9580e3cc61f5f0d9da79036294
parentaae64b37e57eda2354ecffa54a213cfa722543de (diff)
downloadguile-dc20f5a80943d0f7661848c4d1f6141897f6111b.tar.gz
fix syntax-error printing
* module/ice-9/boot-9.scm: Fix to make "extra" a rest arg.
-rw-r--r--module/ice-9/boot-9.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 46adc512b..0c82a3bcf 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -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)
(apply (case-lambda
- ((who what where form subform extra)
+ ((who what where form subform . extra)
(format port "Syntax error:\n")
(if where
(let ((file (or (assq-ref where 'filename) "unknown file"))