DEFER@ — 지연된 실행 토큰 읽기
DEFER@ — 지연된 실행 토큰 읽기
DEFER@(defer-fetch)는 실행 토큰 xt1이 실행하도록 설정된 실행 토큰 xt2를 반환하는 코어 확장 단어예요.
본문
스택 효과
( xt1 -- xt2 )
설명
xt2는 xt1이 실행하도록 설정된 실행 토큰이에요. xt1이 DEFER로 정의된 단어의 실행 토큰이 아니거나, xt1이 어떤 xt를 실행하도록 설정되지 않았으면 애매한 조건이 존재해요.
참조 (See)
- 6.2.0698 ACTION-OF
- 6.2.1173 DEFER
- 6.2.1175 DEFER!
- 6.2.1725 IS
구현 (Implementation)
: DEFER@ ( xt1 -- xt2 )
>BODY @ ;
테스트 (Testing)
T{ DEFER defer4 -> }T
T{ ' * ' defer4 DEFER! -> }T
T{ 2 3 defer4 -> 6 }T
T{ ' defer4 DEFER@ -> ' * }T
T{ ' + IS defer4 -> }T
T{ 1 2 defer4 -> 3 }T
T{ ' defer4 DEFER@ -> ' + }T