Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

rename input-streams to inputstreams

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 07:01:40 +09:00
parent c0def0604b
commit ea1a3eeba2
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bootstrap.fs
View file

@ -1475,21 +1475,21 @@ struct
cell% field input>lineno
end-struct inputstream%
variable input-streams
0 input-streams !
variable inputstreams
0 inputstreams !
: push-input-stream ( file -- )
: push-inputstream ( file -- )
inputstream% %allot \ addr
swap over input>file !
0 over input>lineno !
input-streams @ over input>next !
input-streams !
inputstreams @ over input>next !
inputstreams !
;
: pop-input-stream ( -- )
input-streams @ input-streams !
: pop-inputstream ( -- )
inputstreams @ inputstreams !
;
stdin_ push-input-stream
stdin_ push-inputstream
." Ready" cr