[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-76-g0ac084
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-76-g0ac084b |
Date: |
Fri, 23 Aug 2013 06:04:09 +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".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=0ac084bf2b0b0d7dcae4c5f27477f5af0374d6e5
The branch, stable-2.0 has been updated
via 0ac084bf2b0b0d7dcae4c5f27477f5af0374d6e5 (commit)
from df3acd296e7149630fd6030aced6331ae6dd424b (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 0ac084bf2b0b0d7dcae4c5f27477f5af0374d6e5
Author: Mark H Weaver <address@hidden>
Date: Fri Aug 23 01:57:50 2013 -0400
Fix 'define-public' from (ice-9 curried-definitions).
* module/ice-9/curried-definitions.scm (cdefine, cdefine*): Simplify,
and improve error reporting by making the patterns more strict.
(define-public): Fix bug in generated 'export' form.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/curried-definitions.scm | 27 ++++++++++-----------------
1 files changed, 10 insertions(+), 17 deletions(-)
diff --git a/module/ice-9/curried-definitions.scm
b/module/ice-9/curried-definitions.scm
index 8c684a1..fa36990 100644
--- a/module/ice-9/curried-definitions.scm
+++ b/module/ice-9/curried-definitions.scm
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2010 Free Software Foundation, Inc.
+;;; Copyright (C) 2010, 2013 Free Software Foundation, Inc.
;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -21,32 +21,25 @@
(define-syntax cdefine
(syntax-rules ()
- ((_ ((head . tail) . rest) body body* ...)
- (cdefine (head . tail)
- (lambda rest body body* ...)))
((_ (head . rest) body body* ...)
- (define head
+ (cdefine head
(lambda rest body body* ...)))
- ((_ . rest)
- (define . rest))))
+ ((_ name val)
+ (define name val))))
(define-syntax cdefine*
(syntax-rules ()
- ((_ ((head . tail) . rest) body body* ...)
- (cdefine* (head . tail)
- (lambda* rest body body* ...)))
((_ (head . rest) body body* ...)
- (define* head
+ (cdefine* head
(lambda* rest body body* ...)))
- ((_ . rest)
- (define* . rest))))
+ ((_ name val)
+ (define* name val))))
(define-syntax define-public
(syntax-rules ()
- ((_ (name . args) . body)
- (begin
- (cdefine (name . args) . body)
- (export name)))
+ ((_ (head . rest) body body* ...)
+ (define-public head
+ (lambda rest body body* ...)))
((_ name val)
(begin
(define name val)
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-76-g0ac084b,
Mark H Weaver <=