--- stack/stack.h	2002/02/16 00:51:32	1.1
+++ stack/stack.h	2002/02/17 04:03:57	1.2
@@ -11,15 +11,15 @@
     func,			/* Function pointer */
     symb, 
     list
-  } type;			/* Type of stack element */
+  } type:3;			/* Type of stack element */
+
+  int gc_garb:1;
 
   union {
     void *ptr;			/* Pointer to the content */
     int val;			/* ...or an integer */
   } content;			/* Stores a pointer or an integer */
 
-  int gc_garb;
-
 } value;
 
 /* A symbol with a name and possible value */
@@ -59,57 +59,58 @@
 } environment;
 
 /* A type for pointers to external functions */
-typedef void (*funcp)(environment *); /* funcp is a pointer to a void
+typedef void (*funcp)(environment*); /* funcp is a pointer to a void
 					 function (environment *) */
 
-void init_env(environment *env);
-void printerr(const char* in_string);
-extern void toss(environment *env);
-symbol **hash(hashtbl in_hashtbl, const char *in_string);
-value* new_val(environment *env);
-void gc_mark(value *val);
-extern void gc_init(environment *env);
-void push_val(environment *env, value *val);
-void push_int(environment *env, int in_val);
-void push_cstring(environment *env, const char *in_string);
-char *mangle_str(const char *old_string);
-extern void mangle(environment *env);
-void push_sym(environment *env, const char *in_string);
+void init_env(environment*);
+void printerr(const char*);
+extern void toss(environment*);
+symbol **hash(hashtbl, const char*);
+value* new_val(environment*);
+void gc_mark(value*);
+extern void gc_init(environment*);
+void push_val(environment*, value*);
+void push_int(environment*, int);
+void push_cstring(environment*, const char*);
+char *mangle_str(const char*);
+extern void mangle(environment*);
+void push_sym(environment*, const char*);
 extern void nl();
-extern void type(environment *env);
-void print_h(stackitem *stack_head, int noquote);
-extern void print_(environment *env);
-extern void print(environment *env);
-extern void princ_(environment *env);
-extern void princ(environment *env);
-void print_st(stackitem *stack_head, long counter);
-extern void printstack(environment *env);
-extern void swap(environment *env);
-extern void rot(environment *env);
-extern void rcl(environment *env);
-extern void eval(environment *env);
-extern void rev(environment *env);
-extern void pack(environment *env);
-extern void expand(environment *env);
-extern void eq(environment *env);
-extern void not(environment *env);
-extern void neq(environment *env);
-extern void def(environment *env);
-extern void quit(environment *env);
-extern void clear(environment *env);
-extern void words(environment *env);
-void forget_sym(symbol **hash_entry);
-extern void forget(environment *env);
-extern void errn(environment *env);
-extern void sx_2b(environment *env);
-extern void sx_2d(environment *env);
-extern void sx_3e(environment *env);
-value *copy_val(environment *env, value *old_value);
-extern void sx_647570(environment *env);
-extern void sx_6966(environment *env);
-extern void ifelse(environment *env);
-extern void sx_7768696c65(environment *env);
-extern void sx_666f72(environment *env);
-extern void to(environment *env);
-extern void readline(environment *env);
-extern void sx_72656164(environment *env);
+extern void type(environment*);
+void print_h(stackitem*, int);
+extern void print_(environment*);
+extern void print(environment*);
+extern void princ_(environment*);
+extern void princ(environment*);
+void print_st(stackitem*, long);
+extern void printstack(environment*);
+extern void swap(environment*);
+extern void rot(environment*);
+extern void rcl(environment*);
+extern void eval(environment*);
+extern void rev(environment*);
+extern void pack(environment*);
+extern void expand(environment*);
+extern void eq(environment*);
+extern void not(environment*);
+extern void neq(environment*);
+extern void def(environment*);
+extern void quit(environment*);
+extern void clear(environment*);
+extern void words(environment*);
+void forget_sym(symbol**);
+extern void forget(environment*);
+extern void errn(environment*);
+extern void sx_2b(environment*);
+extern void sx_2d(environment*);
+extern void sx_3e(environment*);
+value *copy_val(environment*, value*);
+extern void sx_647570(environment*);
+extern void sx_6966(environment*);
+extern void ifelse(environment*);
+extern void sx_7768696c65(environment*);
+extern void sx_666f72(environment*);
+extern void to(environment*);
+extern void readline(environment*);
+extern void sx_72656164(environment*);
+extern void foreach(environment*);