--- stack/stack.h	2002/03/10 20:08:47	1.10
+++ stack/stack.h	2002/03/11 08:53:00	1.11
@@ -33,23 +33,23 @@
     tfloat,
     string,
     func,			/* Function pointer */
-    symb, 
-    tcons
+    symb,			/* Symbol */
+    tcons			/* A pair of two values */
   } type:4;			/* Type of stack element */
 
   union {
     struct {
-      unsigned int mark:1;
-      unsigned int protect:1;
+      unsigned int mark:1;	/* Used internally in the GC */
+      unsigned int protect:1;	/* Protect from GC */
     } flag;
-    unsigned int no_gc:2;
-  } gc;
+    unsigned int no_gc:2;	/* Both flags as one integer */
+  } gc;				/* Garbage collector stuff */
 
   union {
-    struct cons_struct *c;
     void *ptr;			/* Pointer to the content */
+    struct cons_struct *c;	/* ...or a pointer to a cons cell */
     int i;			/* ...or an integer */
-    float f;
+    float f;			/* ...or a floating point number */
   } content;			/* Stores a pointer or an integer */
 
 } value;
@@ -62,7 +62,7 @@
   struct stackitem_struct *next; /* Next item */
 } stackitem;
 
-typedef struct cons_struct {
+typedef struct cons_struct {	/* A pair of two values */
   value *car;
   value *cdr;
 } cons;
@@ -85,7 +85,7 @@
   stackitem *gc_ref;
   int gc_limit, gc_count;
 
-  cons *head;		/* Head of the stack */
+  cons *head;			/* Head of the stack */
   hashtbl symbols;		/* Hash table of all variable bindings */
   int err;			/* Error flag */
   char *in_string;		/* Input pending to be read */