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

Fixup see for code words.

Browse Source
This commit is contained in:
Brad Nelson
2022-09-04 17:05:06 -07:00
parent 8bed92bef9
commit 393b54d873
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/utils.fs
View File

@ -131,9 +131,10 @@ variable indent
?see-flags cr
exit
then
dup >flags BUILTIN_FORK and if ." Built-in fork: " see. exit then
dup >flags BUILTIN_FORK and if ." Built-in-fork: " see. exit then
dup @ ['] input-buffer @ = if ." CREATE/VARIABLE: " see. cr exit then
dup @ ['] SMUDGE @ = if ." DOES>/CONSTANT: " see. cr exit then
dup @ ['] callcode @ = if ." Code: " see. cr exit then
dup >params 0= if ." Built-in: " see. cr exit then
." Unsupported: " see. cr ;