(define sys:sleep (lambda (duration) (call/cc (lambda (cont) (callback (+ (now) duration) cont #t) (*sys:toplevel-continuation* 0) #t))))