From b8f968e0e56cf16a84b8210e6d71ab11514d1127 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 7 Oct 2023 22:47:57 +0200 Subject: Repair litmus test. --- tests/litmus.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'tests/litmus.scm') diff --git a/tests/litmus.scm b/tests/litmus.scm index 477c5946..fb391713 100755 --- a/tests/litmus.scm +++ b/tests/litmus.scm @@ -1,8 +1,11 @@ #!/usr/bin/env bash # -*- mode: scheme; geiser-scheme-implementation: guile -*- -here=$(dirname $(realpath $0)) -. "$(dirname "$here")/env" +# here=$(dirname $(realpath $0)) +# . "$(dirname "$here")/env" + +root=$(dirname "$(dirname "$(realpath "$0")")") +eval "$(env __PRINT_ENVIRONMENT=1 "${root}/calp")" exec $GUILE -e main -s "$0" "$@" !# -- cgit v1.2.3