Fix a bug: add missing next() to (free) in C version

This commit is contained in:
Koichi Nakamura 2021-05-05 21:00:15 +09:00
parent 725b09d3fa
commit 0346fdb8ad

View file

@ -207,6 +207,9 @@ defcode("(allocate)", allocate) {
push((cell) p); push((cell) p);
next(); next();
} }
defcode("(free)", free_) { free((void*) pop()); } defcode("(free)", free_) {
free((void*) pop());
next();
}
#endif #endif