Make branching more decompilable.

2022-07-30 12:33:14 -07:00
parent 8d3af98732
commit fdf8b760d1
6 changed files with 66 additions and 35 deletions
--- a/common/utils.fs
+++ b/common/utils.fs
@ -50,9 +50,9 @@ internals definitions
   dup ['] $@ = if drop ['] s" see.
                   dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned +
                   [char] " emit space exit then
-   dup  ['] BRANCH =
-   over ['] 0BRANCH = or
-   over ['] DONEXT = or
+   dup  @ ['] BRANCH @ =
+   over @ ['] 0BRANCH @ = or
+   over @ ['] DONEXT @ = or
       if see. cell+ exit then
   see. ;
 : see-loop   dup >body swap >params 1- cells over +