Net2/usr/src/usr.bin/lisp/franz/tahoe/prunei.c

Compare this file to the similar file:
Show the results in this format: 

#include "global.h"
#include "structs.h"

prunei(what)
register lispval what;
{
	extern struct types int_str;
	int gstart();
	
	if(((long)what) > ((long) gstart)) {
		--(int_items->i);
		what->i = (long) int_str.next_free;
		int_str.next_free = (char *) what;
	}
}