duskos

commit eab757754a93797ded02b3fc60687538e696ca74
parent 77260b6bcf273f01771dd71082cb9cef5eb16ffc
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat, 24 Jun 2023 19:59:15 -0400

rpi: fix "chain" which didn't pushret/popret

Diffstat:
M
fs/xcomp/bootlo.fs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/fs/xcomp/bootlo.fs b/fs/xcomp/bootlo.fs
@@ -200,7 +200,7 @@ alias @ llnext
 : _ ( w -- w-or-0 ) dup ['] noop = if drop 0 then ;
 : chain ( w1 w2 -- w )
   _ swap _ tuck over and? if
-    here# rot execute, swap branch, drop else ?swap nip then ;
+    here# pushret, rot execute, popret, swap branch, drop else ?swap nip then ;
 alias noop idle
 
 alias execute | immediate