Value * varLookup(char *bp, char *vname, int max) {
varLookup(const char *bp, char *vname, int max, int *error) {
Value * varLookup(char *bp, char *vname, int max) {    Variable *current;    bp = readChars(bp, vname, max);    for (current = varHead; current; current = current->next) {	if (PL_strcasecmp(current->vname, vname) == 0) {		return current->value;	}    }    return NULL;}