From d1bfcf3b6a674c5ca9dc0c6cfb1a8df170dd8821 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Fri, 9 May 2014 08:47:48 +1000
Subject: [PATCH] Remove unnecessary {*} TCL operator.

---
 .../config/environment/temperature/sct_lakeshore_336.tcl      | 2 +-
 .../config/environment/temperature/sct_lakeshore_340.tcl      | 2 +-
 .../config/environment/temperature/sct_oxford_mercury.tcl     | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl
index 92a99042..8dd8a5c0 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl
@@ -1900,7 +1900,7 @@ proc add_sct_ls336 {name IP port terminator {_tol1 1.0} {_tol2 1.0} {CID 1} {CTY
       makesctcontroller sct_ls336_$name aqadapter ${port}
     } else {
     puts "\nadd_ls336: makesctcontroller sct_ls336_$name std ${IP}:$port $terminator for Lakeshore model 336"
-      makesctcontroller sct_ls336_$name std ${IP}:$port {*}$terminator
+      makesctcontroller sct_ls336_$name std ${IP}:$port $terminator
     }
     ::scobj::ls336::mk_sct_lakeshore_336 sct_ls336_$name environment $name $CID $CTYPE $_tol1 $_tol2 $_verbose
     makesctemon $name /sics/$name/emon/monMode_Lp1 /sics/$name/emon/isInTolerance_Lp1 /sics/$name/emon/errhandler
diff --git a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl
index 7bbc0fe4..2bc10804 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl
@@ -2104,7 +2104,7 @@ proc add_sct_ls340 {name IP port terminator {_tol1 1.0} {_tol2 1.0} {CID 1} {CTY
       makesctcontroller sct_ls340_$name aqadapter ${port}
     } else {
       puts "\nadd_ls340: makesctcontroller sct_ls340_$name std ${IP}:$port $terminator for Lakeshore model 340"
-      makesctcontroller sct_ls340_$name std ${IP}:$port {*}$terminator
+      makesctcontroller sct_ls340_$name std ${IP}:$port $terminator
     }
     ::scobj::ls340::mk_sct_lakeshore_340 sct_ls340_$name environment $name $CID $CTYPE $_ls340_LSmodel $_tol1 $_tol2 $_verbose
     makesctemon $name /sics/$name/emon/monMode_Lp1 /sics/$name/emon/isInTolerance_Lp1 /sics/$name/emon/errhandler
diff --git a/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl b/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl
index fada3e70..8ff410de 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl
@@ -877,7 +877,7 @@ if {0} {
     puts "[namespace current]::log_file [set [namespace current]::log_file]"
     if {[SplitReply [environment_simulation]]=="false"} {
       debug_log 1 "makesctcontroller sct_${the_name} std ${IP}:${port}"
-      makesctcontroller sct_${the_name} std ${IP}:${port} {*}$terminator
+      makesctcontroller sct_${the_name} std ${IP}:${port} $terminator
     }
     debug_log 1 "::scobj::oxford_mercury::mk_sct_driver sct_${the_name} environment ${the_name} ${_tol} $CID $CTYPE"
     ::scobj::oxford_mercury::mk_sct_driver sct_${the_name} environment ${the_name} ${_tol} $CID $CTYPE
@@ -900,6 +900,6 @@ if { [ info exists ::config_dict ] && [ dict get $::config_dict mercury_scipi en
   set cid   [dict get $::config_dict mercury_scipi id]
   set tol [dict get $::config_dict mercury_scipi tol]
   set term [dict get $::config_dict mercury_scipi terminator]
-  add_oxford_mercury $name $IP $PORT $cid $ctype {*}$term $tol
+  add_oxford_mercury $name $IP $PORT $cid $ctype $term $tol
 }