This commit is contained in:
Jay McCarthy 2010-04-26 12:29:00 -06:00
parent e0b571618a
commit e0b684c2f0

View File

@ -213,8 +213,7 @@
(define %>= (make-binary-arithmetic-relation >=))
(define %< (make-binary-arithmetic-relation <))
(define %<= (make-binary-arithmetic-relation <=))
(define %=/= (make-binary-arithmetic-relation
(lambda (m n) (not (= m n)))))
(define %=/= (make-binary-arithmetic-relation (compose not =)))
;type predicates