tcl: don't use 'set' to retrieve the value of a variable

[fw/openocd] / tcl / target / xilinx_zynqmp.cfg

diff --git a/tcl/target/xilinx_zynqmp.cfg b/tcl/target/xilinx_zynqmp.cfg
index e66289a707b96e7d3bef414c76381232f10e1195..2df7a4ff9176f4cbcc1d4ec0551da617b20ff0b3 100644 (file)
--- a/tcl/target/xilinx_zynqmp.cfg
+++ b/tcl/target/xilinx_zynqmp.cfg
@@ -99,7 +99,7 @@ targets $_TARGETNAME.0
 
 proc core_up { args } {
     global _TARGETNAME
-    foreach { core } [set args] {
+    foreach core $args {
         $_TARGETNAME.$core arp_examine
     }
 }