(define maybe-modal-window #f)

(define (set-modal-window! reader)
  (if maybe-modal-window
      (error "tried to set a second modal window"))
  (set! maybe-modal-window reader))

(define (close-modal-window!)
  (set! maybe-modal-window #f))