summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xclean.tl7
-rwxr-xr-xrun.tl24
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)