diff --git a/bootstrap.fs b/bootstrap.fs index 40769a8..f16a6aa 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -1473,13 +1473,13 @@ struct cell% field input>next cell% field input>file cell% field input>lineno -end-struct input% +end-struct inputstream% variable input-streams 0 input-streams ! : push-input-stream ( file -- ) - input% %allot \ addr + inputstream% %allot \ addr swap over input>file ! 0 over input>lineno ! input-streams @ over input>next !