threadsok.rkt

#lang racket

(define (infinite)
  (infinite))


(define (f)
  (sleep 1)
  (infinite)
  (displayln "in f")
  (f))

(define (g)
  (sleep 5)
  (displayln "in g")
  (g))

(thread f)
(thread g)

(read)