|
|
@@ -110,7 +110,7 @@ void *list_pop(list_t *l) {
|
|
|
|
|
|
size_t i = --l->length;
|
|
|
void *v = l->data[i];
|
|
|
-
|
|
|
+
|
|
|
l->data[i] = NULL;
|
|
|
|
|
|
if (!l->length) {
|
|
|
@@ -1217,12 +1217,6 @@ interpreter_t *interpreter_new(void) {
|
|
|
return state;
|
|
|
}
|
|
|
|
|
|
-void interpreter_error(interpreter_t *state, char *e) {
|
|
|
- fprintf(stderr, "%s error\n", e);
|
|
|
-
|
|
|
- exit(1);
|
|
|
-}
|
|
|
-
|
|
|
value_t *each_rank(interpreter_t *state, verb_t *f, value_t *x, unsigned int d,
|
|
|
unsigned int rm) {
|
|
|
if (!f->monad)
|
