;; load, then wait 10s and quit (define sys:load-then-quit (lambda (filename delay-in-sec) (begin (sys:load filename) (callback (+ (now) (* *second* delay-in-sec)) quit 0))))