Редактирование: IMMEDIATE
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 66: | Строка 66: | ||
<pre> | <pre> | ||
1 CONSTANT &IMMEDIATE \ константа для высечения флажка IMMEDIATE | 1 CONSTANT &IMMEDIATE \ константа для высечения флажка IMMEDIATE | ||
… | |||
: IMMEDIATE ( -- ) \ 94 | |||
\ Сделать последнее определение словом немедленного исполнения. | |||
\ Исключительная ситуация возникает, если последнее определение | |||
\ не имеет имени. | |||
LAST @ NAME>F DUP C@ &IMMEDIATE OR SWAP C! | |||
; | |||
… | … | ||
: IS-IMMEDIATE ( NFA -> F ) | : IS-IMMEDIATE ( NFA -> F ) | ||
Строка 73: | Строка 80: | ||
\ для обратной совместимости: | \ для обратной совместимости: | ||
: ?IMMEDIATE ( NFA -> F ) IS-IMMEDIATE ; | : ?IMMEDIATE ( NFA -> F ) IS-IMMEDIATE ; | ||
</pre> | </pre> | ||
<pre> | <pre> |