summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"))