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