5 lines
185 B
Scheme
5 lines
185 B
Scheme
#lang scheme
|
|
(provide set-show-bitmaps? get-show-bitmaps?)
|
|
(define show-bitmaps? #t)
|
|
(define (set-show-bitmaps? sb?) (set! show-bitmaps? sb?))
|
|
(define (get-show-bitmaps?) show-bitmaps?) |