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

Added Cyc_car / Cyc_cdr

Browse source
This commit is contained in:
Justin Ethier 2016-07-28 23:34:03 -04:00
parent 9c04662938
commit fe65274c77
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -122,6 +122,8 @@ extern object Cyc_global_variables;
int _cyc_argc; int _cyc_argc;
char **_cyc_argv; char **_cyc_argv;
void gc_init_heap(long heap_size); void gc_init_heap(long heap_size);
object Cyc_car(void *data, object lis);
object Cyc_cdr(void *data, object lis);
object Cyc_get_global_variables(); object Cyc_get_global_variables();
object Cyc_get_cvar(object var); object Cyc_get_cvar(object var);
object Cyc_set_cvar(object var, object value); object Cyc_set_cvar(object var, object value);

12
runtime.c
View file

@ -527,6 +527,18 @@ int equal(object x, object y)
} }
} }
object Cyc_car(void *data, object lis)
{
Cyc_check_pair(data, lis);
return car(lis);
}
object Cyc_cdr(void *data, object lis)
{
Cyc_check_pair(data, lis);
return cdr(lis);
}
object Cyc_get_global_variables() object Cyc_get_global_variables()
{ {
return Cyc_global_variables; return Cyc_global_variables;