[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-294-g44d65b2

[Andy Wingo]

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".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=44d65b23cebad7001d0384ed181a44b500129f83

The branch, master has been updated
       via  44d65b23cebad7001d0384ed181a44b500129f83 (commit)
      from  e9729cbb2ce87f635353039385c140f2355bd47d (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 44d65b23cebad7001d0384ed181a44b500129f83
Author: Andy Wingo <address@hidden>
Date:   Sun Aug 29 19:27:23 2010 -0700

    docstrings in syntax-rules
    
    * module/ice-9/psyntax.scm (syntax-rules): Allow a docstring between the
      literals and the first clause.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/psyntax.scm |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 69cd1a5..6c96bdb 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2611,6 +2611,16 @@
              (patterns pattern ...))
            (syntax-case x (k ...)
              ((dummy . pattern) #'template)
+             ...)))
+      ((_ (k ...) docstring ((keyword . pattern) template) ...)
+       (string? (syntax->datum #'docstring))
+       #'(lambda (x)
+           ;; the same, but allow a docstring
+           docstring
+           #((macro-type . syntax-rules)
+             (patterns pattern ...))
+           (syntax-case x (k ...)
+             ((dummy . pattern) #'template)
              ...))))))
 
 (define-syntax let*


hooks/post-receive
-- 
GNU Guile