diff options
Diffstat (limited to 'ps/stepA_more.ps')
| -rw-r--r-- | ps/stepA_more.ps | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ps/stepA_more.ps b/ps/stepA_more.ps index 66494cc..a273c02 100644 --- a/ps/stepA_more.ps +++ b/ps/stepA_more.ps @@ -1,5 +1,8 @@ (types.ps) run (reader.ps) run +(printer.ps) run +(env.ps) run +(core.ps) run % read /_readline { print flush (%stdin) (r) file 99 string readline } def @@ -254,7 +257,7 @@ end } def /REP { READ repl_env EVAL PRINT } def /_ref { repl_env 3 1 roll env_set pop } def -types_ns { _ref } forall +core_ns { _ref } forall (readline) { 0 get _readline not { null } if } _ref (read-string) { 0 get read_str } _ref |