(use srfi-18) (define (a) (print "A:" (current-seconds)) (a)) (define (b) (print "B:" (current-seconds)) (b)) (thread-start! (make-thread b "B")) (a)