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:
parent
609672bfa1
commit
87f76e94f7
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user