Condense DO LOOP.

2022-07-30 16:49:11 -07:00
parent 1e6aeacbe3
commit f0a1d54b35
3 changed files with 17 additions and 10 deletions
--- a/common/utils.fs
+++ b/common/utils.fs
@ -90,6 +90,10 @@ variable indent
   dup  @ ['] BRANCH @ =
   over @ ['] 0BRANCH @ = or
   over @ ['] DONEXT @ = or
+   over ['] (?do) = or
+   over ['] (+loop) = or
+   over ['] (loop) = or
+   over ['] (leave) = or
       if swap cell+ swap then
   drop
 ;