Allow sexprs in the head position of a sexpr to be evaluated.
Cat's Eye Technologies
11 years ago
170 | 170 |
sexp = l->body;
|
171 | 171 |
done = 0; /* "tail call" */
|
172 | 172 |
} else {
|
173 | |
printf("Cannot evaluate ");
|
174 | |
dump(h);
|
175 | |
printf("\n");
|
176 | |
exit(1);
|
|
173 |
struct value *k = eval(h, env);
|
|
174 |
struct value *m = cons(eval(k, env), t);
|
|
175 |
return eval(m, env);
|
177 | 176 |
}
|
178 | 177 |
break;
|
179 | 178 |
}
|