diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-12 16:38:02 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-02-12 16:38:02 +0100 |
commit | dc20f5a80943d0f7661848c4d1f6141897f6111b (patch) | |
tree | e9e00a5e225dae9580e3cc61f5f0d9da79036294 | |
parent | aae64b37e57eda2354ecffa54a213cfa722543de (diff) | |
download | guile-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.scm | 2 |
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")) |