[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-67-gdc

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-15-67-gdc20f5a
Date: Sat, 12 Feb 2011 15:34:14 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, master has been updated
       via  dc20f5a80943d0f7661848c4d1f6141897f6111b (commit)
      from  aae64b37e57eda2354ecffa54a213cfa722543de (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit dc20f5a80943d0f7661848c4d1f6141897f6111b
Author: Andy Wingo <address@hidden>
Date:   Sat Feb 12 16:38:02 2011 +0100

    fix syntax-error printing
    * module/ice-9/boot-9.scm: Fix to make "extra" a rest arg.


Summary of changes:
 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 46adc51..0c82a3b 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"))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]