1 files changed, 15 insertions, 9 deletions
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)