increment lineno

This commit is contained in:
Koichi Nakamura 2021-01-10 16:05:19 +09:00
parent de1a7cfc1e
commit fc436d8be4

View file

@ -1807,6 +1807,7 @@ variable source-buffer-end source-buffer source-buffer-end !
\ the buffer is empty
source-buffer source-buffer-pos !
source-buffer source-buffer-end !
increment-lineno
source-buffer BUFSIZE inputstreams @ input>file @ read-line throw
if