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

[fw/openocd] / tcl / board / tocoding_poplar.cfg

diff --git a/tcl/board/tocoding_poplar.cfg b/tcl/board/tocoding_poplar.cfg
index 6d2e6354e52aab6eba6b0619c30bf6626dcd0afb..36d5aec47da0bc4e36987393f700a4024688079c 100644 (file)
--- a/tcl/board/tocoding_poplar.cfg
+++ b/tcl/board/tocoding_poplar.cfg
@@ -19,7 +19,7 @@ proc core_up { args } {
        global _TARGETNAME
 
        # examine remaining cores
-       foreach _core [set args] {
+       foreach _core $args {
                ${_TARGETNAME}$_core arp_examine
        }
 }