--- stack/stack.c	2002/02/05 12:14:42	1.29
+++ stack/stack.c	2002/02/05 12:33:21	1.30
@@ -178,10 +178,10 @@
   new_symbol= hash(env->symbols, in_string);
   new_value->content.ptr= *new_symbol;
 
-  if(new_value->content.ptr==NULL) { /* If symbol was undefined */
+  if(*new_symbol==NULL) { /* If symbol was undefined */
 
     /* Create a new symbol */
-    *new_symbol= malloc(sizeof(symbol));
+    (*new_symbol)= malloc(sizeof(symbol));
     (*new_symbol)->val= NULL;	/* undefined value */
     (*new_symbol)->next= NULL;
     (*new_symbol)->id= malloc(strlen(in_string)+1);
@@ -392,9 +392,6 @@
     return;
   }
 
-/*    push(&(env->head), copy(env->head)); */
-/*    swap(env); */
-/*    toss(env); */
 }
 
 /* Make a list. */