version 1.30, 2001/09/04 08:15:47
|
version 1.31, 2001/09/12 14:44:24
|
Line 67 unlock ram-dictionary borders nip lock
|
Line 67 unlock ram-dictionary borders nip lock
|
AConstant dictionary-end |
AConstant dictionary-end |
[ELSE] |
[ELSE] |
: dictionary-end ( -- addr ) |
: dictionary-end ( -- addr ) |
forthstart [ 3 cells ] Aliteral @ + ; |
forthstart [ 3 cells image-header + ] Aliteral @ + ; |
[THEN] |
[THEN] |
|
|
: usable-dictionary-end ( -- addr ) |
: usable-dictionary-end ( -- addr ) |
Line 221 defer throw ( y1 .. ym nerror -- y1 .. y
|
Line 221 defer throw ( y1 .. ym nerror -- y1 .. y
|
|
|
:noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error ) |
:noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error ) |
?dup if |
?dup if |
[ has? ec 0= [IF] here forthstart 9 cells + ! [THEN] ] |
[ has? ec 0= [IF] here image-header 9 cells + ! [THEN] ] |
cr .error cr |
cr .error cr |
[ has? file [IF] ] script? IF 1 (bye) ELSE quit THEN |
[ has? file [IF] ] script? IF 1 (bye) ELSE quit THEN |
[ [ELSE] ] quit [ [THEN] ] |
[ [ELSE] ] quit [ [THEN] ] |