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 ?see-flags cr
exit exit
then 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 @ ['] input-buffer @ = if ." CREATE/VARIABLE: " see. cr exit then
dup @ ['] SMUDGE @ = if ." DOES>/CONSTANT: " 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 dup >params 0= if ." Built-in: " see. cr exit then
." Unsupported: " see. cr ; ." Unsupported: " see. cr ;

1
examples/code_x64.fs
View File

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