From 8e2dc7712de206b87e1c46df9383c3fa1e18a43a Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Sun, 6 Apr 2025 23:22:30 +0200
Subject: Debug print preprocessor function

---
 general.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'general.sml')

diff --git a/general.sml b/general.sml
index 0cf2ebd..cb4652a 100644
--- a/general.sml
+++ b/general.sml
@@ -23,8 +23,8 @@ in
       Unevaluated th =>
         let
           val x = th () handle e => (value := Exn e; raise e)
-          val () = value := Evaluated x
         in
+          value := Evaluated x;
           x
         end
     | Evaluated v => v
-- 
cgit v1.2.3