Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix semantics of >in

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 10:53:31 +09:00
parent 318c57ca56
commit 087ce4f918
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bootstrap.fs
View file

@ -1836,8 +1836,8 @@ stdin_ push-inputstream
variable source-buffer BUFSIZE allot variable source-buffer BUFSIZE allot
BUFSIZE constant source-buffer-size BUFSIZE constant source-buffer-size
variable source-buffer-pos source-buffer source-buffer-pos ! variable source-buffer-pos 0 source-buffer-pos !
variable source-buffer-end source-buffer source-buffer-end ! variable source-buffer-end 0 source-buffer-end !
: increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ; : increment-lineno ( -- ) 1 inputstreams @ input>lineno +! ;
@ -1856,8 +1856,8 @@ variable source-buffer-end source-buffer source-buffer-end !
: new-key ( -- c ) : new-key ( -- c )
source-buffer-pos @ source-buffer-end @ = if source-buffer-pos @ source-buffer-end @ = if
\ the buffer is empty \ the buffer is empty
source-buffer source-buffer-pos ! 0 source-buffer-pos !
source-buffer source-buffer-end ! 0 source-buffer-end !
increment-lineno increment-lineno
source-buffer BUFSIZE inputstreams @ input>file @ read-line throw source-buffer BUFSIZE inputstreams @ input>file @ read-line throw
@ -1875,7 +1875,7 @@ variable source-buffer-end source-buffer source-buffer-end !
source-buffer-end +! source-buffer-end +!
then then
then then
source-buffer-pos @ c@ source-buffer source-buffer-pos @ + c@
1 source-buffer-pos +! 1 source-buffer-pos +!
; ;