From 564f37d6684e2ed86e707233bbd93e1537cf83a5 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Thu, 1 Jun 2023 19:50:58 -0400
Subject: All tests pass

---
 lib/process.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/process.tcl b/lib/process.tcl
index 58f6637a..67642dfa 100644
--- a/lib/process.tcl
+++ b/lib/process.tcl
@@ -19,10 +19,11 @@ proc On-process {name body} {
     set ::Processes::${name}::this [uplevel {expr {[info exists this] ? $this : "<unknown>"}}]
     namespace eval ::Processes::$name {
         variable tclfd [file tempfile tclfile tclfile.tcl]
-        set body [list Evaluator::runInSerializedEnvironment $body [list]]
-        puts $tclfd [join [list $::processPrelude $body] "\n"]; close $tclfd
-
         # TODO: send it the serialized environment
+        set lambda [list {} $body]
+        set run [list Evaluator::runInSerializedEnvironment $lambda [list]]
+        puts $tclfd [join [list $::processPrelude $run] "\n"]; close $tclfd
+
         variable stdio [open "|tclsh8.6 $tclfile 2>@1" w+]
         variable pid [pid $stdio]
 
-- 
cgit v1.2.3