и еще один вариант использования ленивости:
<pre>
\ 18.10.2009 ~mOleg
\ Сopyright [C] 2009 mOleg
mininoleg@yahoo.com
\ "ленивое" SEE
\ сделать имя указанного слова lfa недоступным для поиска
: forget ( lfa --> ) TRUE SWAP &SMG SET-ATTR THROW ;
\ LAZY определение
: SEE ( / NAME --> )
s" .\\lib\\util\\see.fts" Requires \ подключить, если необходимо нужную библиотеку
[ LATEST LIT, ] forget \ сделать себя недоступным для поиска в следующий раз
[ LATEST ID>ASC SLIT, ] EVAL-TOKEN \ выполнить одноименное слово
;
</pre>
использовать обычным образом:
SEE NAME
Если библиотека уже подгружена, то просто будет вызвано слово SEE по имени. Если библиотека не подгружена, то сначала она будет подключена, а затем вызвано слово SEE. "Ленивое" имя будет после исполнения больше недоступно для поиска.
таким образом, я нашел несколько применений "ленивости" в Форте, какие еще варианты кто может предложить?