(define sys:wait (lambda (until-time) (call/cc (lambda (cont) (callback until-time cont #t) (*sys:toplevel-continuation* 0) #t))))