Исправил:
1)
Код:
: TEST
38 0 DO
55 EMIT
10 +LOOP
;
TEST
Выводит 4 буквы U38 0 DO
55 EMIT
10 +LOOP
;
TEST
2)
Цитата:
I>1234 <# # # # # #> DEPTH .
2 OK
I>_
2 OK
I>_
+...
Ethereal писал(а):
Но дальше вылезли проблемы с переопределением уже имеющихся слов.
Сейчас думаю над этим. Всё дело в том, что получается рекурсия и преполняется стек возвратов...
Никак не могу понять: надо ли включать доп. бит или действовать по другому? Может настало время попробовать разобраться со словарями?
Тогда исключения можно вынести тоже в отдельный словарь!Попробовал сделать
Код:
: PREVIOUS LAST @ COUNTSZ 2DUP + @ (FIND) ?EXIT , ; IMMEDIATE COMPILEONLY
: WORDS PREVIOUS ;
WORDS
почему-то неправильно работает :/
: WORDS PREVIOUS ;
WORDS
| Вложения: |
OLD40025_pre2.ZIP [62.66 Кб]
Скачиваний: 468 |
