about summary refs log tree commit diff
path: root/input.e
diff options
context:
space:
mode:
Diffstat (limited to 'input.e')
-rw-r--r--input.e2
1 files changed, 1 insertions, 1 deletions
diff --git a/input.e b/input.e
index 41a2b8c..3d8fabb 100644
--- a/input.e
+++ b/input.e
@@ -102,7 +102,7 @@
 ~ (metadata pointer --)
 : consume-from
   ~ If the length is zero, exit without doing anything.
-  dup buffer-logical-length @ 0 = { exit } if
+  dup buffer-logical-length @ 0 = { drop exit } if
 
   ~ Decrement the logical length. We do this now to get it over with, since
   ~ adjusting the start pointer is more complex.