diff --git a/collects/tests/plai/gc2/good-mutators/by-val.rkt b/collects/tests/plai/gc2/good-mutators/by-val.rkt index d6771dcc19..01cafee4c4 100644 --- a/collects/tests/plai/gc2/good-mutators/by-val.rkt +++ b/collects/tests/plai/gc2/good-mutators/by-val.rkt @@ -5,7 +5,8 @@ (define global-val 'global) (define (mut-arg arg) - (set! arg 'mutated)) + (set! arg 'mutated) + 0) (mut-arg global-val) diff --git a/collects/tests/plai/gc2/set-restriction-test.rkt b/collects/tests/plai/gc2/set-restriction-test.rkt index 932ba18654..8233ff549c 100644 --- a/collects/tests/plai/gc2/set-restriction-test.rkt +++ b/collects/tests/plai/gc2/set-restriction-test.rkt @@ -1,11 +1,13 @@ #lang racket - +(require racket/runtime-path) (define-syntax (test stx) (syntax-case stx () [(_ exp reg) (with-syntax ([line (syntax-line stx)]) #'(test/proc line 'exp reg))])) +(define-runtime-path here ".") + (define ns (make-base-namespace)) (define tests 0) (define failed 0) @@ -18,7 +20,8 @@ (let ([m (exn-message x)]) (regexp-match? reg m)))) exn-message)) - (parameterize ([current-namespace ns]) + (parameterize ([current-namespace ns] + [current-directory here]) (expand `(,#'module m plai/gc2/mutator (allocator-setup "good-collectors/trivial-collector.rkt" 200)