--- stack/stack.c 2003/08/04 14:32:27 1.130 +++ stack/stack.c 2003/08/05 09:09:51 1.131 @@ -330,30 +330,6 @@ return new_string; /* The caller must free() it */ } -extern void mangle(environment *env) -{ - char *new_string; - - if(env->head->type==empty) { - printerr("Too Few Arguments"); - env->err= 1; - return; - } - - if(CAR(env->head)->type!=string) { - printerr("Bad Argument Type"); - env->err= 2; - return; - } - - new_string= mangle_str(CAR(env->head)->content.string); - - toss(env); - if(env->err) return; - - push_cstring(env, new_string); -} - /* Push a symbol onto the stack. */ void push_sym(environment *env, const char *in_string) { @@ -822,7 +798,7 @@ } if(myenv.interactive) { - printf("Stack version $Revision: 1.130 $\n\ + printf("Stack version $Revision: 1.131 $\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\