} target = makeArrayTarget(vname, current->value, index); if (target) { Value *element = NewValue(current->value->type, 1); if (!element) { fprintf(stderr, "MEMORY ERROR!\n"); *error = 1; } argFreeData(element); element->data = target; element->type |= ArgStatic; return element; } *error = 1; return NULL;
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;}