version 1.41, 2000/08/17 12:46:57
|
version 1.44, 2000/09/23 15:05:59
|
Line 1
|
Line 1
|
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw |
|
|
\ Copyright (C) 1995,1998 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 146 decimal
|
Line 146 decimal
|
>in @ |
>in @ |
loadfile @ |
loadfile @ |
if |
if |
loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF |
loadfile @ file-position throw |
|
[IFDEF] #fill-bytes #fill-bytes @ [ELSE] #tib @ 1+ [THEN] 0 d- |
else |
else |
blk @ |
blk @ |
linestart @ |
linestart @ |