Commit 33144107 authored by Christopher Alfeld's avatar Christopher Alfeld

Last change for array names was almost right.

parent ab0a67d0
......@@ -35,9 +35,9 @@ proc set {args} {
if {[llength $args] > 1} {
# Munge var in case it's a variable
regsub -all {[(]} $var {-} out
set var $out
real_set var $out
regsub -all {[)]} $var {} out
set var $out
real_set var $out
real_set val [lindex $args 1]
if {([regexp {^n[0-9]+$} $val] != -1) ||
([regexp {^lan[0-9]+$} $val] != -1) ||
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment