allow quote require forms in the argument to allocator-setup

This is mostly to better support test cases so that we
can set up namespaces that have specific collectors in them
(easiest to do with quote-based requires)
This commit is contained in:
Robby Findler 2013-03-08 13:00:32 -06:00
parent 609672bfa1
commit 87f76e94f7

View File

@ -332,9 +332,13 @@
gc:set-first! gc:set-rest!))])
(begin
#`(begin
#,(if (alternate-collector)
#`(require #,(datum->syntax #'collector-module (alternate-collector)))
#`(require collector-module))
#,(begin
(if (alternate-collector)
#`(require #,(datum->syntax #'collector-module (alternate-collector)))
#`(require #,(syntax-case #'collector-module (mutator-quote)
[(mutator-quote . x)
(datum->syntax #'collector-module (cons #'quote #'x))]
[else #'collector-module]))))
(set-collector:deref! gc:deref)
(set-collector:alloc-flat! gc:alloc-flat)