char comparators moved to benz core
This commit is contained in:
parent
e5d47de3b0
commit
9f5a1512b5
|
@ -1 +1 @@
|
|||
Subproject commit 3a7fb12b2f30986c5dac1b9379d660e491b0f27e
|
||||
Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97
|
|
@ -49,7 +49,12 @@
|
|||
|
||||
(export char?
|
||||
char->integer
|
||||
integer->char)
|
||||
integer->char
|
||||
char=?
|
||||
char<?
|
||||
char>?
|
||||
char<=?
|
||||
char>=?)
|
||||
|
||||
(export number?
|
||||
complex?
|
||||
|
|
|
@ -354,16 +354,6 @@
|
|||
|
||||
;; 6.6. Characters
|
||||
|
||||
(define-macro (define-char-transitive-predicate name op)
|
||||
`(define (,name . cs)
|
||||
(apply ,op (map char->integer cs))))
|
||||
|
||||
(define-char-transitive-predicate char=? =)
|
||||
(define-char-transitive-predicate char<? <)
|
||||
(define-char-transitive-predicate char>? >)
|
||||
(define-char-transitive-predicate char<=? <=)
|
||||
(define-char-transitive-predicate char>=? >=)
|
||||
|
||||
(export char?
|
||||
char->integer
|
||||
integer->char
|
||||
|
|
Loading…
Reference in New Issue