From 4c58bb558f3e4cd4a4870c6bb4a4a9af2e7ba5e0 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Fri, 2 Sep 2022 19:17:38 +0100 Subject: [PATCH] Fix Racket tests using schemerunme directory For out of source builds --- Examples/test-suite/mzscheme/integers_runme.scm | 2 +- Examples/test-suite/mzscheme/newobject1_runme.scm | 2 +- Examples/test-suite/mzscheme/null_pointer_runme.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Examples/test-suite/mzscheme/integers_runme.scm b/Examples/test-suite/mzscheme/integers_runme.scm index 03c802166..e2e881702 100644 --- a/Examples/test-suite/mzscheme/integers_runme.scm +++ b/Examples/test-suite/mzscheme/integers_runme.scm @@ -6,4 +6,4 @@ ,form #f)) -(load "../schemerunme/integers.scm") +(load (build-path (path-only (path->complete-path (find-system-path 'run-file))) "../schemerunme/integers.scm")) diff --git a/Examples/test-suite/mzscheme/newobject1_runme.scm b/Examples/test-suite/mzscheme/newobject1_runme.scm index c2d7a9809..17333ed5c 100644 --- a/Examples/test-suite/mzscheme/newobject1_runme.scm +++ b/Examples/test-suite/mzscheme/newobject1_runme.scm @@ -6,4 +6,4 @@ (define-macro (gc) `(collect-garbage 'major)) -(load "../schemerunme/newobject1.scm") +(load (build-path (path-only (path->complete-path (find-system-path 'run-file))) "../schemerunme/newobject1.scm")) diff --git a/Examples/test-suite/mzscheme/null_pointer_runme.scm b/Examples/test-suite/mzscheme/null_pointer_runme.scm index c16e8a0da..35f83a4f8 100644 --- a/Examples/test-suite/mzscheme/null_pointer_runme.scm +++ b/Examples/test-suite/mzscheme/null_pointer_runme.scm @@ -1,3 +1,3 @@ (load-extension "null_pointer.so") -(load "../schemerunme/null_pointer.scm") +(load (build-path (path-only (path->complete-path (find-system-path 'run-file))) "../schemerunme/null_pointer.scm"))