Редактирование: EXIT
Перейти к навигации
Перейти к поиску
Правка может быть отменена. Пожалуйста, просмотрите сравнение версий ниже, чтобы убедиться, что это нужная вам правка, и запишите страницу ниже, чтобы отменить правку.
Текущая версия | Ваш текст | ||
Строка 95: | Строка 95: | ||
Реализации из SP-Forth 4.20: | Реализации из SP-Forth 4.20: | ||
<pre> | <pre> | ||
: EXIT | : EXIT | ||
RET, | RET, | ||
; IMMEDIATE | ; IMMEDIATE | ||
… | |||
\ : EXIT ( REDEFINE EXIT TO TAKE CARE OF MACROS ) | \ : EXIT ( REDEFINE EXIT TO TAKE CARE OF MACROS ) | ||
\ IN-MACRO? IF LEAVE-MACRO THEN R> DROP ; | \ IN-MACRO? IF LEAVE-MACRO THEN R> DROP ; | ||
Строка 113: | Строка 108: | ||
STATE @ IF POSTPONE ?LEAVE-MACRO POSTPONE EXIT ELSE | STATE @ IF POSTPONE ?LEAVE-MACRO POSTPONE EXIT ELSE | ||
?LEAVE-MACRO EXIT THEN ; ALSO FORTH IMMEDIATE PREVIOUS | ?LEAVE-MACRO EXIT THEN ; ALSO FORTH IMMEDIATE PREVIOUS | ||
</pre> | </pre> | ||