Commit 91a8a311 authored by Mac Newbold's avatar Mac Newbold
Browse files

Fixed array node(1) -> node-1- to be node-1.

parent 678f4aa3
......@@ -34,7 +34,9 @@ proc set {args} {
if {$var != "currnode" && $var != "currlan"} {
if {[llength $args] > 1} {
# Munge var in case it's a variable
regsub -all {[()]} $var {-} out
regsub -all {[(]} $var {-} out
set var $out
regsub -all {[)]} $var {} out
set var $out
real_set val [lindex $args 1]
if {([regexp {^n[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