X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=5ea44ee166ff3be59458c7608a74e5aa2f44e7f0;hb=d97ced45e703ef8531a7103fa2b982ad32bd035a;hp=d3555a4e1bcdbb2e29ff737addd9ea8efba40eeb;hpb=d75e232b614baf3d82abf447daacc8fcefefbe85;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index d3555a4..5ea44ee 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -353,14 +353,14 @@ parse-idx-stack parse-idx-sp !
     if
         nil? -rot 2drop
         if
-            true exit
+            2drop 2drop true exit
         else
-            false exit
+            2drop 2drop false exit
         then
     else
         nil? -rot 2drop
         if
-            false exit
+            2drop 2drop false exit
         then
     then