[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-60-gdf08fc
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-60-gdf08fc3 |
Date: |
Fri, 02 Sep 2011 17:51:00 +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=df08fc359c87a2c802ab82c4c70db7bda9baaa52
The branch, stable-2.0 has been updated
via df08fc359c87a2c802ab82c4c70db7bda9baaa52 (commit)
from eddd81f4652db72a085f7c8dfe2ca04b7c4de829 (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 df08fc359c87a2c802ab82c4c70db7bda9baaa52
Author: Andy Wingo <address@hidden>
Date: Fri Sep 2 19:49:26 2011 +0200
fix srfi-67 compilation
* module/srfi/srfi-67/compare.scm: Fix define-syntax-rule conversion.
-----------------------------------------------------------------------
Summary of changes:
module/srfi/srfi-67/compare.scm | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/module/srfi/srfi-67/compare.scm b/module/srfi/srfi-67/compare.scm
index 2ab947e..767f3db 100644
--- a/module/srfi/srfi-67/compare.scm
+++ b/module/srfi/srfi-67/compare.scm
@@ -124,13 +124,13 @@
(define-syntax-rule (if>=? arg ...)
(compare:if-rel? (0 1) (-1) arg ...))
-(define-syntax-rule if- (not=? arg ...)
+(define-syntax-rule (if-not=? arg ...)
(compare:if-rel? (-1 1) (0) arg ...))
; predicates from compare procedures
-(define-syntax-rule compare:define- (rel? rel? if-rel?)
+(define-syntax-rule (compare:define-rel? rel? if-rel?)
(define rel?
(case-lambda
(() (lambda (x y) (if-rel? (default-compare x y) #t #f)))
@@ -151,7 +151,7 @@
; chains of length 3
-(define-syntax-rule compare:define-rel1/ (rel2? rel1/rel2? if-rel1? if-rel2?)
+(define-syntax-rule (compare:define-rel1/rel2? rel1/rel2? if-rel1? if-rel2?)
(define rel1/rel2?
(case-lambda
(()
@@ -185,7 +185,7 @@
; chains of arbitrary length
-(define-syntax-rule compare:define-chain- (rel? chain-rel? if-rel?)
+(define-syntax-rule (compare:define-chain-rel? chain-rel? if-rel?)
(define chain-rel?
(case-lambda
((compare)
@@ -449,7 +449,7 @@
(begin (compare:type-check type? type-name x)
(compare:type-check type? type-name y)))))
-(define-syntax-rule compare:define- (by=/< compare = < type? type-name)
+(define-syntax-rule (compare:define-by=/< compare = < type? type-name)
(define compare
(let ((= =) (< <))
(lambda (x y)
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-60-gdf08fc3,
Andy Wingo <=