--- stack/stack.h 2002/03/17 11:26:35 1.16 +++ stack/stack.h 2002/03/20 05:29:29 1.17 @@ -110,8 +110,10 @@ symbol **hash(hashtbl, const char*); value* new_val(environment*); void gc_mark(value*); -void gc_maybe(environment *env); +void gc_maybe(environment*); extern void gc_init(environment*); +void protect(value*); +void unprotect(value*); void push_val(environment*, value*); void push_int(environment*, int); void push_float(environment*, float); @@ -121,7 +123,7 @@ void push_sym(environment*, const char*); extern void nl(); extern void type(environment*); -void print_h(value*, int); +void print_val(value*, int, stackitem*); extern void print_(environment*); extern void print(environment*); extern void princ_(environment*); @@ -148,25 +150,31 @@ extern void sx_2b(environment*); extern void sx_2d(environment*); extern void sx_3e(environment*); +extern void sx_3c(environment*); +extern void sx_3c3d(environment*); +extern void sx_3e3d(environment*); value *copy_val(environment*, value*); extern void sx_647570(environment*); extern void sx_6966(environment*); extern void ifelse(environment*); +extern void sx_656c7365(environment*); +extern void then(environment*); extern void sx_7768696c65(environment*); extern void sx_666f72(environment*); +extern void foreach(environment*); extern void to(environment*); extern void readline(environment*); extern void sx_72656164(environment*); -extern void foreach(environment*); -void protect(value*); -void unprotect(value*); +extern void beep(environment*); +extern void sx_77616974(environment*); extern void copying(environment*); extern void warranty(environment*); extern void sx_2a(environment*); extern void sx_2f(environment*); extern void mod(environment*); -extern void sx_3c(environment*); -extern void sx_3c3d(environment*); -extern void sx_3e3d(environment*); extern void sx_646976(environment*); -extern void then(environment*); +extern void setcar(environment*); +extern void setcdr(environment*); +extern void car(environment*); +extern void cdr(environment*); +extern void cons(environment*);