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

Added (Cyc-macro?)

Browse source
This commit is contained in:
Justin Ethier 2016-07-14 22:18:46 -04:00
parent 9311ee5f83
commit f75b077270
4 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -400,6 +400,7 @@ extern const object primitive_integer_127;
extern const object primitive_pair_127;
extern const object primitive_procedure_127;
extern const object primitive_macro_127;
extern const object primitive_Cyc_91macro_127;
extern const object primitive_port_127;
extern const object primitive_vector_127;
extern const object primitive_bytevector_127;

9
runtime.c
View file

@ -2907,6 +2907,12 @@ void _macro_127(void *data, object cont, object args)
return_closcall1(data, cont, Cyc_is_macro(car(args)));
}
void _Cyc_91macro_127(void *data, object cont, object args)
{
Cyc_check_num_args(data, "Cyc-macro?", 1, args);
return_closcall1(data, cont, Cyc_is_macro(car(args)));
}
void _port_127(void *data, object cont, object args)
{
Cyc_check_num_args(data, "port?", 1, args);
@ -4139,6 +4145,8 @@ static primitive_type procedure_127_primitive =
{ {0}, primitive_tag, "procedure?", &_procedure_127 };
static primitive_type macro_127_primitive =
{ {0}, primitive_tag, "macro?", &_macro_127 };
static primitive_type Cyc_91macro_127_primitive =
{ {0}, primitive_tag, "Cyc-macro?", &_Cyc_91macro_127 };
static primitive_type port_127_primitive =
{ {0}, primitive_tag, "port?", &_port_127 };
static primitive_type bytevector_127_primitive =
@ -4300,6 +4308,7 @@ const object primitive_integer_127 = &integer_127_primitive;
const object primitive_pair_127 = &pair_127_primitive;
const object primitive_procedure_127 = &procedure_127_primitive;
const object primitive_macro_127 = &macro_127_primitive;
const object primitive_Cyc_91macro_127 = &Cyc_91macro_127_primitive;
const object primitive_string_127 = &string_127_primitive;
const object primitive_port_127 = &port_127_primitive;
const object primitive_vector_127 = &vector_127_primitive;

3
scheme/cyclone/primitives.sld
View file

@ -136,6 +136,7 @@
port?
procedure?
macro?
Cyc-macro?
vector?
string?
symbol?
@ -276,6 +277,7 @@
(port? 1 1)
(procedure? 1 1)
(macro? 1 1)
(Cyc-macro? 1 1)
(vector? 1 1)
(string? 1 1)
(symbol? 1 1)
@ -509,6 +511,7 @@
((eq? p 'pair?) "Cyc_is_pair")
((eq? p 'procedure?) "Cyc_is_procedure")
((eq? p 'macro?) "Cyc_is_macro")
((eq? p 'Cyc-macro?) "Cyc_is_macro")
((eq? p 'port?) "Cyc_is_port")
((eq? p 'vector?) "Cyc_is_vector")
((eq? p 'bytevector?) "Cyc_is_bytevector")

1
scheme/eval.sld
View file

@ -273,6 +273,7 @@
(list 'port? port?)
(list 'procedure? procedure?)
(list 'macro? macro?)
(list 'Cyc-macro? Cyc-macro?)
(list 'vector? vector?)
(list 'bytevector? bytevector?)
(list 'string? string?)