From 077ff4ab2f2c5773ef531ed81bf741189ef79ce0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 11 Dec 2015 10:12:02 -0500 Subject: [PATCH] Remove use of `this-expression-source-directory`. Fixes presence of build system path in .zo files. --- typed-racket-test/main.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/typed-racket-test/main.rkt b/typed-racket-test/main.rkt index 896d7d2d..a892ebd5 100644 --- a/typed-racket-test/main.rkt +++ b/typed-racket-test/main.rkt @@ -1,10 +1,10 @@ #lang racket/base (require rackunit rackunit/text-ui racket/file - mzlib/etc racket/port + racket/port compiler/compiler setup/setup racket/promise racket/match syntax/modcode - racket/promise + racket/promise racket/runtime-path "unit-tests/all-tests.rkt" "unit-tests/test-utils.rkt" "optimizer/run.rkt" @@ -43,9 +43,11 @@ [_ (exn-matches ".*Type Checker.*" exn:fail:syntax?)]))) +(define-runtime-path src-dir ".") + (define (mk-tests dir test #:error [error? #f]) (lambda () - (define path (build-path (this-expression-source-directory) dir)) + (define path (build-path src-dir dir)) (define prms (for/list ([p (directory-list path)] #:when (scheme-file? p)