Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not return value of (member), but a boolean

Browse source
This commit is contained in:
Justin Ethier 2016-08-20 02:54:14 -04:00
parent 5ce09c6698
commit ffccd7ae0b
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/char.sld
View file

@ -61,8 +61,14 @@
(define (char-alphabetic? c) (or (char-upper-case? c) (char-lower-case? c))) (define (char-alphabetic? c) (or (char-upper-case? c) (char-lower-case? c)))
(define (char-upper-case? c) (and (char>=? c #\A) (char<=? c #\Z))) ;; ASCII-only (define (char-upper-case? c) (and (char>=? c #\A) (char<=? c #\Z))) ;; ASCII-only
(define (char-lower-case? c) (and (char>=? c #\a) (char<=? c #\z))) ;; ASCII-only (define (char-lower-case? c) (and (char>=? c #\a) (char<=? c #\z))) ;; ASCII-only
(define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) (define (char-numeric? c)
(define (char-whitespace? c) (member c '(#\tab #\space #\return #\newline))) (if (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))
#t
#f))
(define (char-whitespace? c)
(if (member c '(#\tab #\space #\return #\newline))
#t
#f))
(define (digit-value c) (define (digit-value c)
(if (char-numeric? c) (if (char-numeric? c)
(- (char->integer c) (char->integer #\0)) (- (char->integer c) (char->integer #\0))