This commit is contained in:
Koichi Nakamura 2021-01-10 16:28:33 +09:00
parent ccfa4d6167
commit bfb5c2ad9a

View file

@ -1791,7 +1791,7 @@ variable source-buffer-end source-buffer source-buffer-end !
: increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ;
: source ( -- c-addr) source-buffer ;
: in> ( -- c-addr ) source-buffer-pos ;
: >in ( -- c-addr ) source-buffer-pos ;
\ Throw UNEXPECTED-EOF-ERROR at EOF
:noname ( -- c )
@ -2388,7 +2388,7 @@ need-defined (read)
insn:docol insn:exit insn:lit insn:litstring insn:branch insn:0branch
words id. name>string name>link
include included source in>
include included source >in
next-arg shift-args arg argv argc implementation
[if] [unless] [else] [then] defined?