Add cleaning utility.

2 files changed, 22 insertions, 9 deletions

diff --git a/clean.tl b/clean.tl
new file mode 100755
index 0000000..63e0d0a
--- /dev/null
+++ b/clean.tl
@@ -0,0 +1,7 @@
+#!/usr/bin/env txr
+
+(defun clean-all ()
+  (each ((file (glob "*.tlo")))
+    (remove-path file)))
+
+(clean-all)
diff --git a/run.tl b/run.tl
index f2b839b..ad97965 100755
--- a/run.tl
+++ b/run.tl
@@ -1,13 +1,19 @@
 #!/usr/bin/env txr
 
-; This script, makesans, uses sbcl to make sanssbcl, which can then
-; be copied to a Linux PC that doesn't have sbcl.
+(defun comp-load (file)
+  (let ((src `@file.tl`)
+        (obj `@file.tlo`))
+    (when (path-newer src obj)
+      (put-line `TXR @src -> @obj`)
+      (compile-file src))
+    (load obj)))
 
-(defun load-and-go ()
-  (load "demostuff")
-  (load "menu")
-  (each ((i (range 1 9)))
-    (load `demo@i`))
-  (menu))
+(defun load-demo ()
+  (with-compilation-unit
+    (comp-load "demostuff")
+    (comp-load "menu")
+    (each ((i (range 1 9)))
+      (comp-load `demo@i`))))
 
-(load-and-go)
+(load-demo)
+(menu)