char comparators moved to benz core

This commit is contained in:
Yuichi Nishiwaki 2014-09-10 17:18:41 +09:00
parent e5d47de3b0
commit 9f5a1512b5
3 changed files with 7 additions and 12 deletions

@ -1 +1 @@
Subproject commit 3a7fb12b2f30986c5dac1b9379d660e491b0f27e
Subproject commit ac638daa2b4987f199e06a41bc11f23864bd6b97

View File

@ -49,7 +49,12 @@
(export char?
char->integer
integer->char)
integer->char
char=?
char<?
char>?
char<=?
char>=?)
(export number?
complex?

View File

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