Fixup see for code words.

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

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 ;

View File

@ -8,5 +8,6 @@ code my2*
$c3 code1, ( ret )
end-code
see my2*
123 my2* . cr
bye