pass scryer path through stream instead of env var

2026-04-12 19:29:39 -07:00
parent 081f3c0827
commit 8e2dcd905b
3 changed files with 28 additions and 6 deletions
--- a/tests-pl/issue-http_open-hanging.pl
+++ b/tests-pl/issue-http_open-hanging.pl
@@ -3,8 +3,13 @@
 :- use_module(library(iso_ext)).
 :- use_module(library(os)).

+prolog_path(Prolog) :-
+    read(Body),
+    term_variables(Body, [Prolog]),
+    Body.
+
 server_start([Process,Out]) :-
-    getenv("PROLOG", Prolog),
+    prolog_path(Prolog),
    process_create(Prolog,
        ["tests-pl/issue-http_open-hanging_server", "-t", "server"],
        [process(Process), stdout(pipe(Out))]).