;;;; run.scm


(use system posix)

(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-modification-time 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))