alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tab DOES> differently.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-30 15:11:28 -07:00
parent 5f90ef3a83
commit 157b5562bc
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
common/utils.fs
View File

@ -77,6 +77,7 @@ variable indent
dup ['] $@ = if drop ['] s" see. dup ['] $@ = if drop ['] s" see.
dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned + dup @ dup >r >r dup cell+ r> type cell+ r> 1+ aligned +
[char] " emit space exit then [char] " emit space exit then
dup ['] DOES> = if icr then
dup >flags -TAB AND if -1 indent+! then dup >flags -TAB AND if -1 indent+! then
dup see. dup see.
dup >flags +TAB AND if 1 indent+! then dup >flags +TAB AND if 1 indent+! then