10 lines
243 B
Scheme
10 lines
243 B
Scheme
|
(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))
|