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

Added (macro?)

Browse source
This commit is contained in:
Justin Ethier 2015-08-12 21:28:57 -04:00
parent 29758df2cc
commit ba664fe93f
3 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/cgen.sld
View file

@ -543,6 +543,7 @@
((eq? p 'integer?) "Cyc_is_integer") ((eq? p 'integer?) "Cyc_is_integer")
((eq? p 'pair?) "Cyc_is_cons") ((eq? p 'pair?) "Cyc_is_cons")
((eq? p 'procedure?) "Cyc_is_procedure") ((eq? p 'procedure?) "Cyc_is_procedure")
((eq? p 'macro?) "Cyc_is_macro")
((eq? p 'port?) "Cyc_is_port") ((eq? p 'port?) "Cyc_is_port")
((eq? p 'vector?) "Cyc_is_vector") ((eq? p 'vector?) "Cyc_is_vector")
((eq? p 'string?) "Cyc_is_string") ((eq? p 'string?) "Cyc_is_string")

1
scheme/cyclone/transforms.sld
View file

@ -713,6 +713,7 @@
pair? pair?
port? port?
procedure? procedure?
macro?
vector? vector?
string? string?
symbol? symbol?

1
scheme/eval.sld
View file

@ -287,6 +287,7 @@
(list 'pair? pair?) (list 'pair? pair?)
(list 'port? port?) (list 'port? port?)
(list 'procedure? procedure?) (list 'procedure? procedure?)
(list 'macro? macro?)
(list 'vector? vector?) (list 'vector? vector?)
(list 'string? string?) (list 'string? string?)
(list 'symbol? symbol?) (list 'symbol? symbol?)