conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extlib/benz

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

7
piclib/picrin/base.scm
View File

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

10
piclib/scheme/base.scm
View File

@ -354,16 +354,6 @@
;; 6.6. Characters ;; 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? (export char?
char->integer char->integer
integer->char integer->char