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

Removing cruft

Browse source
This commit is contained in:
Justin Ethier 2015-06-11 22:30:10 -04:00
parent 741835bc49
commit a704d72f1b
2 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime.c
View file

@ -50,7 +50,6 @@ object gc_ans[NUM_GC_ANS]; /* argument for GC continuation closure. */
int gc_num_ans;
jmp_buf jmp_main; /* Where to jump to. */
//static object test_exp1, test_exp2; /* Expressions used within test. */
object Cyc_global_variables = nil;
static symbol_type __EOF = {eof_tag, "", nil}; // symbol_type in lieu of custom type
@ -209,8 +208,6 @@ void Cyc_rt_raise_msg(const char *err) {
}
/* END exception handler */
object terpri() {printf("\n"); return nil;}
int equal(x, y) object x, y;
{
if (nullp(x)) return nullp(y);
@ -496,8 +493,6 @@ object Cyc_write_char(object c, object port)
return quote_void;
}
/* Some of these non-consing functions have been optimized from CPS. */
// TODO: should not be a predicate, may end up moving these to Scheme code
object memberp(x,l) object x; list l;
{for (; !nullp(l); l = cdr(l)) if (boolean_f != equalp(x,car(l))) return boolean_t;

1
runtime.h
View file

@ -68,7 +68,6 @@ string_type Cyc_string_append(int argc, object str1, ...);
string_type Cyc_string_append_va_list(int, object, va_list);
list mcons(object,object);
cvar_type *mcvar(object *var);
object terpri(void);
object Cyc_display(object, FILE *port);
object dispatch_display_va(int argc, object clo, object cont, object x, ...);
object Cyc_display_va(int argc, object x, ...);