delimc-leak.wat

;; Causes stack overflow:

(def p 'p)

(def (spawn-thread)
  (push-prompt p
    (loop
      (sleep))))

(def (sleep)
  (take-subcont p k
    (def (callback . #ignore)
      (push-prompt p
        (push-subcont k)))
    ($setTimeout (js-callback callback) 0)))

(spawn-thread)

;; Replace (push-prompt p (push-subcont k)) with (push-prompt-subcont p k) -> constant stack space
;; push-prompt-subcont is Oleg's push-delim-subcont

(def p 'p)

(def (spawn-thread)
  (push-prompt p
    (loop
      (sleep))))

(def (sleep)
  (take-subcont p k
    (def (callback . #ignore)
      (push-prompt-subcont p k))
    ($setTimeout (js-callback callback) 0)))

(spawn-thread)