version 1.15, 2006/12/31 13:39:13
|
version 1.16, 2007/01/05 13:50:53
|
Line 80 Variable ind-call ind-call off
|
Line 80 Variable ind-call ind-call off
|
DOES> ( -- ) dup thislib ! proc: ; |
DOES> ( -- ) dup thislib ! proc: ; |
|
|
: init-shared-libs ( -- ) |
: init-shared-libs ( -- ) |
defers 'cold libs |
defers 'cold |
0 libs BEGIN @ dup WHILE dup REPEAT drop |
0 libs BEGIN |
BEGIN dup WHILE >r |
@ dup WHILE |
r@ @lib |
dup REPEAT |
r@ 2 cells + BEGIN @ dup WHILE r@ over @proc REPEAT |
drop BEGIN |
drop rdrop |
dup WHILE |
REPEAT drop ; |
>r |
|
r@ @lib |
|
r@ 2 cells + BEGIN |
|
@ dup WHILE |
|
r@ over @proc REPEAT |
|
drop rdrop |
|
REPEAT |
|
drop ; |
|
|
' init-shared-libs IS 'cold |
' init-shared-libs IS 'cold |
|
|