From 644ef0aa848c2cef6621e0ae6be8b14322b015d0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 11 Sep 2023 00:30:49 +0200
Subject: Change how entry point is handled.

Replaces the old main sh bootstrap entry point to one written in C.

The reasons are in the C file, but in short, Guile's command line is
less than ideal.
---
 tests/validate-html/run-validator.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'tests/validate-html/run-validator.scm')

diff --git a/tests/validate-html/run-validator.scm b/tests/validate-html/run-validator.scm
index 0c4ee0bc..b363e3ea 100755
--- a/tests/validate-html/run-validator.scm
+++ b/tests/validate-html/run-validator.scm
@@ -1,12 +1,16 @@
 #!/usr/bin/bash
 # -*- mode: scheme; geiser-scheme-implementation: guile -*-
-here=$(dirname $(realpath $0))
+root=$(dirname "$(dirname "$(dirname "$(realpath "$0")")")")
 
-. "$(dirname "$(dirname "$here")")/env"
+eval "$(env __PRINT_ENVIRONMENT=1 ${root}/calp)"
 
 exec $GUILE -e main -s "$0" -- "$@"
 !#
 
+(unless (getenv "CALP_TEST_ENVIRONMENT")
+  (format (current-error-port) "Not running in test environment, abandoning~%")
+  (exit 1))
+
 (use-modules (sxml simple)
              ((sxml xpath) :select (sxpath))
              (sxml match)
-- 
cgit v1.2.3