Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use fast version of member

Browse source
This commit is contained in:
Justin Ethier 2016-10-15 18:19:18 -04:00
parent 54a47242bf
commit 7b6e393668
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/char.sld
View file

@ -62,11 +62,11 @@
(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) (define (char-numeric? c)
(if (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) (if (Cyc-fast-member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))
#t #t
#f)) #f))
(define (char-whitespace? c) (define (char-whitespace? c)
(if (member c '(#\tab #\space #\return #\newline)) (if (Cyc-fast-member c '(#\tab #\space #\return #\newline))
#t #t
#f)) #f))
(define (digit-value c) (define (digit-value c)

4
scheme/cyclone/primitives.sld
View file

@ -96,6 +96,7 @@
eq? eq?
eqv? eqv?
equal? equal?
Cyc-fast-member
;assoc ;assoc
;assq ;assq
;assv ;assv
@ -222,6 +223,7 @@
(eq? 2 2) (eq? 2 2)
(eqv? 2 2) (eqv? 2 2)
(equal? 2 2) (equal? 2 2)
(Cyc-fast-member 2 2)
;(assoc 2 2) ;(assoc 2 2)
;(assq 2 2) ;(assq 2 2)
;(assv 2 2) ;(assv 2 2)
@ -528,6 +530,7 @@
((eq? p 'eq?) "Cyc_eq") ((eq? p 'eq?) "Cyc_eq")
((eq? p 'eqv?) "Cyc_eq") ((eq? p 'eqv?) "Cyc_eq")
((eq? p 'equal?) "equalp") ((eq? p 'equal?) "equalp")
((eq? p 'Cyc-fast-member) "memberp")
((eq? p 'boolean?) "Cyc_is_boolean") ((eq? p 'boolean?) "Cyc_is_boolean")
((eq? p 'char?) "Cyc_is_char") ((eq? p 'char?) "Cyc_is_char")
((eq? p 'null?) "Cyc_is_null") ((eq? p 'null?) "Cyc_is_null")
@ -572,6 +575,7 @@
< <
>= >=
<= <=
Cyc-fast-member
apply apply
car car
cdr cdr