From 87f76e94f785e0b3f5f3207ddc81db6369be3d54 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 8 Mar 2013 13:00:32 -0600 Subject: [PATCH] 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) --- collects/plai/gc2/mutator.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/plai/gc2/mutator.rkt b/collects/plai/gc2/mutator.rkt index eb3467ae55..24f8625277 100644 --- a/collects/plai/gc2/mutator.rkt +++ b/collects/plai/gc2/mutator.rkt @@ -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)