;;;; run.scm


(import system)
(import (chicken file posix))
(import (chicken load))
(import (chicken time))

(load-verbose #t)

(load "xyz.system")

(print "once ...")
(print (load-system xyz))

(print "twice ...")
(print (load-system xyz))

(define (touch . files)
  (for-each
   (lambda (f)
     (set-file-times! f (current-seconds)))
   files))

(print "sleeping 2 seconds ...")
(sleep 2)

(print "touching z.scm")
(touch "z.scm")

(print "thrice ...")
(print (load-system xyz))

(print "noop ...")
(print (load-system xyz))

(print "forced ...")
(print (load-system xyz force: #t))