All: move some fns to core. Major cleanup.

[jackhill/mal.git] / ps / step5_tco.ps

diff --git a/ps/step5_tco.ps b/ps/step5_tco.ps
index 802f3d3..50bcdbf 100644 (file)
--- a/ps/step5_tco.ps
+++ b/ps/step5_tco.ps
@@ -121,10 +121,12 @@ end } def
 
 /RE { READ repl_env EVAL } def
 /REP { READ repl_env EVAL PRINT } def
-/_ref { _function repl_env 3 1 roll env_set pop } def
 
+% core.ps: defined using postscript
+/_ref { _function repl_env 3 1 roll env_set pop } def
 core_ns { _ref } forall
 
+% core.mal: defined using the language itself
 (\(def! not \(fn* \(a\) \(if a false true\)\)\)) RE pop
 
 { % loop