--- gforth/extend.fs 2000/09/09 20:32:58 1.42 +++ gforth/extend.fs 2000/09/10 19:50:33 1.43 @@ -146,7 +146,8 @@ decimal >in @ loadfile @ if - loadfile @ file-position throw #fill-bytes @ 0 d- \ !! bug for CRLF and EOF + loadfile @ file-position throw + [IFDEF] #fill-bytes #fill-bytes @ [ELSE] #tib @ 1+ [THEN] 0 d- else blk @ linestart @