--- stack/stack.c 2003/08/04 14:13:16 1.129 +++ stack/stack.c 2003/08/04 14:32:27 1.130 @@ -153,7 +153,7 @@ /* Remove content */ switch(env->gc_ref->item->type){ case string: - free(env->gc_ref->item->content.ptr); + free(env->gc_ref->item->content.string); break; case tcons: free(env->gc_ref->item->content.c); @@ -379,7 +379,7 @@ /* Look up the symbol name in the hash table */ new_symbol= hash(env->symbols, in_string); - new_value->content.ptr= *new_symbol; + new_value->content.sym= *new_symbol; if(*new_symbol==NULL) { /* If symbol was undefined */ @@ -393,7 +393,7 @@ strcpy((*new_symbol)->id, in_string); /* Intern the new symbol in the hash table */ - new_value->content.ptr= *new_symbol; + new_value->content.sym= *new_symbol; /* Try to load the symbol name as an external function, to see if we should bind the symbol to a new function pointer value */ @@ -822,7 +822,7 @@ } if(myenv.interactive) { - printf("Stack version $Revision: 1.129 $\n\ + printf("Stack version $Revision: 1.130 $\n\ Copyright (C) 2002 Mats Alritzson and Teddy Hogeborn\n\ Stack comes with ABSOLUTELY NO WARRANTY; for details type 'warranty;'.\n\ This is free software, and you are welcome to redistribute it\n\