--- gforth/extend.fs 2000/08/09 20:04:05 1.40 +++ gforth/extend.fs 2000/09/09 20:32:58 1.42 @@ -25,10 +25,11 @@ decimal \ .( 12may93jaw -: .( ( "ccc" -- ) \ core-ext dot-paren - \G Parse a string @i{ccc} delimited by a @code{)} (right - \G parenthesis). Display the string. This is often used to display - \G progress information during compilation; see examples below. +: .( ( compilation,interpretation "ccc" -- ) \ core-ext dot-paren + \G Compilation and interpretation semantics: Parse a string @i{ccc} + \G delimited by a @code{)} (right parenthesis). Display the + \G string. This is often used to display progress information during + \G compilation; see examples below. [char] ) parse type ; immediate \ VALUE 2>R 2R> 2R@ 17may93jaw @@ -145,7 +146,7 @@ decimal >in @ loadfile @ if - loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF + loadfile @ file-position throw #fill-bytes @ 0 d- \ !! bug for CRLF and EOF else blk @ linestart @