From fa64b741462df46ef63fe815dfce01b7d3d48f13 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 10 May 2014 16:29:07 -0500 Subject: PS: include/run from same directory. --- ps/step1_read_print.ps | 7 ++++--- ps/step2_eval.ps | 7 ++++--- ps/step3_env.ps | 9 +++++---- ps/step4_if_fn_do.ps | 11 ++++++----- ps/step5_tco.ps | 11 ++++++----- ps/step6_file.ps | 11 ++++++----- ps/step7_quote.ps | 11 ++++++----- ps/step8_macros.ps | 11 ++++++----- ps/step9_interop.ps | 11 ++++++----- ps/stepA_more.ps | 11 ++++++----- 10 files changed, 55 insertions(+), 45 deletions(-) (limited to 'ps') diff --git a/ps/step1_read_print.ps b/ps/step1_read_print.ps index 476c917..858987c 100644 --- a/ps/step1_read_print.ps +++ b/ps/step1_read_print.ps @@ -1,6 +1,7 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step2_eval.ps b/ps/step2_eval.ps index 551c637..215fc2e 100644 --- a/ps/step2_eval.ps +++ b/ps/step2_eval.ps @@ -1,6 +1,7 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step3_env.ps b/ps/step3_env.ps index 92dc26e..e662c11 100644 --- a/ps/step3_env.ps +++ b/ps/step3_env.ps @@ -1,7 +1,8 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step4_if_fn_do.ps b/ps/step4_if_fn_do.ps index 9e628b6..422f6eb 100644 --- a/ps/step4_if_fn_do.ps +++ b/ps/step4_if_fn_do.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step5_tco.ps b/ps/step5_tco.ps index 83fd43b..680c359 100644 --- a/ps/step5_tco.ps +++ b/ps/step5_tco.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step6_file.ps b/ps/step6_file.ps index 7d1c876..bc30e35 100644 --- a/ps/step6_file.ps +++ b/ps/step6_file.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step7_quote.ps b/ps/step7_quote.ps index d7340fd..3dd9c0c 100644 --- a/ps/step7_quote.ps +++ b/ps/step7_quote.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step8_macros.ps b/ps/step8_macros.ps index 3bf304c..32ca3af 100644 --- a/ps/step8_macros.ps +++ b/ps/step8_macros.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/step9_interop.ps b/ps/step9_interop.ps index de3d2af..7f90d20 100644 --- a/ps/step9_interop.ps +++ b/ps/step9_interop.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def diff --git a/ps/stepA_more.ps b/ps/stepA_more.ps index 76d0a86..a24ee28 100644 --- a/ps/stepA_more.ps +++ b/ps/stepA_more.ps @@ -1,8 +1,9 @@ -(types.ps) run -(reader.ps) run -(printer.ps) run -(env.ps) run -(core.ps) run +/runlibfile where { pop }{ /runlibfile { run } def } ifelse % +(types.ps) runlibfile +(reader.ps) runlibfile +(printer.ps) runlibfile +(env.ps) runlibfile +(core.ps) runlibfile % read /_readline { print flush (%stdin) (r) file 99 string readline } def -- cgit v1.2.3