[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-60-gdf08fc3

[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=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