Может я щас буду изобретать колесо, но вот какая мысль появилась.

Сейчас в СПФ да и в стандарте, если я правильно помню, константы ведут себя так:
- в режиме интерпретации - положить число на стек
- в режиме компиляции - вкомпилировать ссылку на константу

Я предлагаю в режиме компиляции вкомпиливат само значение константы.
Должно получиться, что-то вроде такого:

: ICONSTANT ( n "name" -- )
CREATE , IMMEDIATE
DOES> ( -- n )
@ STATE @ IF LIT, THEN
;
Подозреваю, что IMMEDIATE так напрямую не сработает и его надо заменить на более правильный вариант.
Но в целом идея должна быть понятна.

Также можно наборы таких констант организовывать в отдельные файлы и компилить во временные словари.
Пример:

-- myConst.f --

TEMP-WORDLIST DUP SET-CURRENT DUP ALSO CONTEXT !
0 ICONSTANT C1
1 ICONSTANT C2
...
CLEAR-TEMP-WORDLIST myConstClear

-- main.f --
S" myConst.f" INCLUDED

...

myConstClear

где

: CLEAR-TEMP-WORDLIST ( wid -- ) CREATE , DOES> PREVIOUS @ FREE-WORDLIST ;

Для чего все это.
Довольно часто приходиться создавать и держать в словаре большой набор констант. Например для Windows-функций.
Но это не совсем логично, ведь главное предназначение констант это предоставлять доступ к неизменяемому значению.
Например, компилятор С напрямую подставляет значение константы в код.

Короче с помощью ICONSTANT можно избежать захламления словаря и немного ускорить код.

Какие будут мнения?

Виндовс функции можно хранить в другом словаре ( MODULE: ), если мешают.

Я говорил не про Виндовс функции, а про константы для них.
Эти константы не столько мешают, сколько занимают место в словаре, а используються не так часто.
Поэтому нет большого смысла хранить их в основном словаре - можно во временном, только на время компиляции.

Правильно.

Вот и я о чем.
Но во временном словаре можно будет хранить только инлайн-константы, которые я описал в первом посте, поскольку только их можно будет использовать безопасно в основном словаре после удаления временного. А функции нельзя.

http://www.forth.org.ru/~yz/wincons.html ?

И кроме того:

Похоже. Только у меня без специальных файлов констант и с узнаваемым интерфейсом.


А это часом не оптимизатор постарался?
Или это так константы в СПФ работают?

Если поставить DIS-OPT перед определением r:

то получаем

Хэх.. Сдаёмсу-у...