run.tl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env txr

(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-demo ()
  (with-compilation-unit
    (comp-load "gtkffi")
    (comp-load "menu")
    (each ((i (range 1 9)))
      (comp-load `demo@i`))))

(load-demo)
(menu)