(chapter-start 'nydp/warnings "Store, display, and manage warnings")

(def warnings/clear nil
  ; clear all stored warnings
  (assign warnings/list nil))

(warnings/clear)

;; apply f to each stored warning. For example, (warnings p) to print warnings to console
(def warnings (f)
  (mapply f warnings))

(def warnings/new (kind . info)
  ; store a warning for future retrieval or display
  (assign warnings/list (cons (cons kind info) warnings/list)))