version 1.15, 1997/05/29 19:42:12
|
version 1.16, 1997/07/06 16:03:24
|
Line 47 $20 Value buffers
|
Line 47 $20 Value buffers
|
User block-fid |
User block-fid |
|
|
: block-cold |
: block-cold |
defers 'cold block-fid off last-block off |
block-fid off last-block off |
buffers buffer-struct drop * allocate throw dup block-buffers ! |
buffers buffer-struct drop * allocate throw dup block-buffers ! |
buffers buffer-struct drop * erase ; |
buffers buffer-struct drop * erase ; |
|
|
' block-cold IS 'cold |
' block-cold INIT8 chained |
|
|
block-cold |
block-cold |
|
|
Line 192 true constant block
|
Line 192 true constant block
|
true constant block-ext |
true constant block-ext |
set-current |
set-current |
|
|
: bye ['] flush catch drop bye ; |
|
|
|
|
: bye ['] flush catch drop bye ; |