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

Removed unused functions

Browse source
This commit is contained in:
Justin Ethier 2016-04-21 00:48:56 -04:00
parent ea225a3ab7
commit f89d35bb09
2 changed files with 0 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/cyclone/runtime.h
View file

@ -22,8 +22,6 @@
#define Cyc_check_type(data, fnc_test, tag, obj) { \
if ((boolean_f == fnc_test(obj))) Cyc_invalid_type_error(data, tag, obj); }
#define Cyc_check_cons_or_null(d,obj) { if (obj != NULL) { Cyc_check_cons(d,obj); }}
#define Cyc_check_cons(d,obj) Cyc_check_type(d,Cyc_is_cons, pair_tag, obj);
#define Cyc_check_pair_or_null(d,obj) { if (obj != NULL) { Cyc_check_pair(d,obj); }}
#define Cyc_check_pair(d,obj) Cyc_check_type(d,Cyc_is_pair, pair_tag, obj);
#define Cyc_check_num(d,obj) Cyc_check_type(d,Cyc_is_number, integer_tag, obj);
@ -210,7 +208,6 @@ object Cyc_io_peek_char(void *data, object cont, object port);
object Cyc_io_read_line(void *data, object cont, object port);
object Cyc_is_boolean(object o);
object Cyc_is_cons(object o);
object Cyc_is_pair(object o);
object Cyc_is_null(object o);
object Cyc_is_number(object o);

5
runtime.c
View file

@ -868,11 +868,6 @@ object Cyc_is_boolean(object o){
return boolean_t;
return boolean_f;}
object Cyc_is_cons(object o){
if ((o != NULL) && !is_value_type(o) && ((list)o)->tag == pair_tag)
return boolean_t;
return boolean_f;}
object Cyc_is_pair(object o){
if ((o != NULL) && !is_value_type(o) && ((list)o)->tag == pair_tag)
return boolean_t;