fix nasty for loop bug

This commit is contained in:
NunoSempere 2023-05-06 22:55:02 -04:00
parent 8a27c4f429
commit 3213af26e6
2 changed files with 1 additions and 1 deletions

BIN
mumble

Binary file not shown.

View File

@ -664,7 +664,7 @@ lispval* builtin_def(lispval* v, lispenv* env)
lispval* symbols = source->cell[0]; lispval* symbols = source->cell[0];
lispval* values = source->cell[1]; lispval* values = source->cell[1];
for (int i; i < symbols->count; i++) { for (int i=0; i < symbols->count; i++) {
LISPVAL_ASSERT(symbols->cell[i]->type == LISPVAL_SYM, "Error: in function def, the first list of items should be of type symbol: def { { a b } { 1 2 } }"); LISPVAL_ASSERT(symbols->cell[i]->type == LISPVAL_SYM, "Error: in function def, the first list of items should be of type symbol: def { { a b } { 1 2 } }");
if (VERBOSE) if (VERBOSE)
print_lispval_tree(symbols, 0); print_lispval_tree(symbols, 0);