9 lines
181 B
Racket
9 lines
181 B
Racket
#lang scheme/base
|
|
(provide get-info)
|
|
|
|
(define ((get-info options) key default)
|
|
(case key
|
|
[(configure-runtime) `(#(htdp/bsl/runtime configure ,options))]
|
|
[else default]))
|
|
|