Tab DOES> differently.

2022-07-30 15:11:28 -07:00
parent 5f90ef3a83
commit 157b5562bc
1 changed files with 1 additions and 0 deletions
--- a/common/utils.fs
+++ b/common/utils.fs
@ -77,6 +77,7 @@ variable indent
   dup ['] $@ = if drop ['] s" see.
                   dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned +
                   [char] " emit space exit then
+   dup ['] DOES> = if icr then
   dup >flags -TAB AND if -1 indent+! then
   dup see.
   dup >flags +TAB AND if 1 indent+! then