From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Feb 2011 01:18:49 +0000 (+0000)
Subject: hostside: lib.tcl: fix quoting bugs in addexpr and setexpr
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b46c6e163297d69b87cac7853a8e04dad0d78692;p=trains.git

hostside: lib.tcl: fix quoting bugs in addexpr and setexpr
---

diff --git a/hostside/lib.tcl b/hostside/lib.tcl
index a1ec562..8978343 100644
--- a/hostside/lib.tcl
+++ b/hostside/lib.tcl
@@ -75,7 +75,7 @@ proc get-unique {prefix} {
 }
 
 proc addexpr {varname expr} {
-    set add [uplevel 1 expr $expr]
+    set add [uplevel 1 [list expr $expr]]
     upvar 1 $varname var
     if {![info exists var]} { set var 0 }
     set var [expr {$var + $add}]
@@ -83,7 +83,7 @@ proc addexpr {varname expr} {
 
 proc setexpr {varname expr} {
     upvar 1 $varname var
-    set var [uplevel 1 expr $expr]
+    set var [uplevel 1 [list expr $expr]]
 }
 
 setting port 2883 {\d+}