01 詞
DEFER 未明動作詞
: 已完成詞 1 2 + ; \ 實際動作 如 1 + 2
' 已完成詞 is 未明動作詞
DEFER 異名詞
' DUP is 異名詞
: wesley ( str count -- )
"header \ 創建字串中指定的新詞
docon , 3 , \ 定義 此新詞的動作
;
Warning(-4101): DOCON is a system word in an application word
s" cyn" wesley ok
cyn ok.
. 3 ok
here . 4494152 ok
s" cyn" "header ok
here ok.
. 4494152 ok
docon , 3 , ok
' cyn 20 dump
449360 | 37 10 40 00 03 00 00 00 00 00 00 00 00 00 00 00 |7.@.............|
449370 | 00 00 00 00 |....| ok
3 constant cyn2 ok
' cyn2 20 dump
449370 | 37 10 40 00 03 00 00 00 00 00 00 00 00 00 00 00 |7.@.............|
449380 | 00 00 00 00 |....| ok
cyn2 . 3 ok
cyn . 3 ok