From 395ad666c8d504b7beb706050540f5d158398baf Mon Sep 17 00:00:00 2001
From: Andrew Ekstedt <andrew.ekstedt@gmail.com>
Date: Sat, 9 Dec 2023 07:16:10 +0000
Subject: [PATCH] fix lmul

---
 prelude.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/prelude.tcl b/prelude.tcl
index 9898df8..ddd3b06 100644
--- a/prelude.tcl
+++ b/prelude.tcl
@@ -12,7 +12,7 @@ proc ladd {list} {
 
 proc lmul {list} {
     set p 1
-    foreach x $list { set p [eval {$p * $x}] }
+    foreach x $list { set p [expr {$p * $x}] }
     return $p
 }