Fixup see for code words.
This commit is contained in:
@ -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 ;
|
||||
|
||||
|
||||
@ -8,5 +8,6 @@ code my2*
|
||||
$c3 code1, ( ret )
|
||||
end-code
|
||||
|
||||
see my2*
|
||||
123 my2* . cr
|
||||
bye
|
||||
|
||||
Reference in New Issue
Block a user