From 0346fdb8ad4e0aafe13db4a1f29aff28a5fa3714 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Wed, 5 May 2021 21:00:15 +0900
Subject: [PATCH] Fix a bug: add missing next() to (free) in C version

---
 others/planck.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/others/planck.c b/others/planck.c
index 1d58a12..d0760a2 100644
--- a/others/planck.c
+++ b/others/planck.c
@@ -207,6 +207,9 @@ defcode("(allocate)", allocate) {
     push((cell) p);
     next();
 }
-defcode("(free)", free_) { free((void*) pop()); }
+defcode("(free)", free_) {
+    free((void*) pop());
+    next();
+}
 
 #endif