From cde0a287792a8d8d42a573b45a6d0bf51b0c8042 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 6 Feb 2013 18:07:20 +0100 Subject: [PATCH] make `raco test' more like `racket' Instad of `(dynamic-require .. #f)', use `(dynamic-require .. 0)', which has the effect of making compile-time code "available" (see docs) in case the loaded module uses `eval' on syntax objects that refer to non-kernel syntax. original commit: 0aaf6b80863e16f2070734113e8bb35e2bbcf1b6 --- collects/compiler/commands/test.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/commands/test.rkt b/collects/compiler/commands/test.rkt index f4bf5bd9a5..ebe3f56e6f 100644 --- a/collects/compiler/commands/test.rkt +++ b/collects/compiler/commands/test.rkt @@ -36,7 +36,7 @@ `(file ,(path->string p)) (path->string p)) ,submodule))) - (dynamic-require mod #f)] + (dynamic-require mod 0)] [else (set! something-wasnt-declared? #t)])) (when (and run-anyways? something-wasnt-declared?) @@ -44,7 +44,7 @@ (printf "running ~s:\n" (if (absolute-path? p) `(file ,(path->string p)) (path->string p)))) - (dynamic-require p #f)))] + (dynamic-require p 0)))] [(not (file-exists? p)) (error 'test "given path ~e does not exist" p)])]))