DEFER! — 지연된 실행 토큰 설정
DEFER! — 지연된 실행 토큰 설정
DEFER!(defer-store)는 단어 xt1이 xt2를 실행하도록 설정하는 코어 확장 단어예요.
본문
스택 효과
( xt2 xt1 -- )
설명
단어 xt1이 xt2를 실행하도록 설정해요. xt1이 DEFER로 정의된 단어가 아니면 애매한 조건이 존재해요.
참조 (See)
- 6.2.0698 ACTION-OF
- 6.2.1173 DEFER
- 6.2.1177 DEFER@
- 6.2.1725 IS
구현 (Implementation)
: DEFER! ( xt2 xt1 -- )
>BODY ! ;
테스트 (Testing)
T{ DEFER defer3 -> }T
T{ ' * ' defer3 DEFER! -> }T
T{ 2 3 defer3 -> 6 }T
T{ ' + ' defer3 DEFER! -> }T
T{ 1 2 defer3 -> 3 }T