fix lmul

2023-12-09 07:16:10 +00:00 · 2023-12-09 07:16:10 +00:00 · 395ad666c8
commit 395ad666c8
parent 484c0744fb
1 changed files with 1 additions and 1 deletions
--- 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
 }