(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))