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

Issue #272 - Added more predicates

Browse source
This commit is contained in:
Justin Ethier 2018-08-16 18:06:47 -04:00
parent 081088ae40
commit dd77c46400
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
scheme/cyclone/transforms.sld
View file

@ -875,7 +875,40 @@
((and (eq? #t (if->then new-ast)) ((and (eq? #t (if->then new-ast))
(eq? #f (if->else new-ast)) (eq? #f (if->else new-ast))
(app? (if->condition new-ast)) (app? (if->condition new-ast))
(member (car (if->condition new-ast)) '(Cyc-fast-gt))) ;; Boolean return (member
(car (if->condition new-ast))
'(Cyc-fast-eq
Cyc-fast-gt
Cyc-fast-lt
Cyc-fast-gte
Cyc-fast-lte
Cyc-fast-char-eq
Cyc-fast-char-gt
Cyc-fast-char-lt
Cyc-fast-char-gte
Cyc-fast-char-lte
eq?
eqv?
equal?
boolean?
char?
eof-object?
null?
number?
real?
integer?
pair?
port?
procedure?
Cyc-macro?
vector?
string?
symbol?
=
>
<
>=
<=))) ;; Boolean return
(if->condition new-ast)) (if->condition new-ast))
(else (else
new-ast)))) new-ast))))