mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

fix srfi-67 compilation

Browse source 
* module/srfi/srfi-67/compare.scm: Fix define-syntax-rule conversion.
This commit is contained in:
Andy Wingo 2011-09-02 19:49:26 +02:00
parent eddd81f465
commit df08fc359c
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/srfi/srfi-67/compare.scm
View file

@ -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)