note to self

pull/84/head
Matthew Butterick 9 years ago
parent ab0956c150
commit 60eb57b4c1

@ -16,6 +16,8 @@
(define name (namespace-anchor->namespace nsa)) (define name (namespace-anchor->namespace nsa))
(require-in-namespace name mods)))])) (require-in-namespace name mods)))]))
;; `namespace-require mod` = (eval '(require mod) namespace)
(define (require-in-namespace ns module-names) (define (require-in-namespace ns module-names)
(parameterize ([current-namespace ns]) (parameterize ([current-namespace ns])
(for-each (λ(mod-name) (namespace-require mod-name)) module-names))) (for-each (λ(mod-name) (namespace-require mod-name)) module-names)))

Loading…
Cancel
Save