version 1.4, 2001/05/04 07:41:03
|
version 1.5, 2001/06/16 22:53:38
|
Line 25 require ./vars.fs
|
Line 25 require ./vars.fs
|
\ create s"-buffer /line chars allot |
\ create s"-buffer /line chars allot |
has? compiler 0= |
has? compiler 0= |
[IF] : s" [ELSE] :noname [THEN] |
[IF] : s" [ELSE] :noname [THEN] |
[char] " parse save-mem ; |
[char] " parse |
|
[ has? OS [IF] ] |
|
save-mem |
|
[ [THEN] ] |
|
; |
\ /line min >r s"-buffer r@ cmove |
\ /line min >r s"-buffer r@ cmove |
\ s"-buffer r> ; |
\ s"-buffer r> ; |
has? compiler [IF] |
has? compiler [IF] |