# | Line 167 | Line 167 | proc load_vars {f {vl all}} { # load RIF variables | |
---|---|---|
167 | set curmess {Project loaded.} | |
168 | } else { | |
169 | foreach n $vl { | |
170 | < | catch {unset radvar($n)} |
170 | > | if [regexp {[a-z][a-z]*} $n] { |
171 | > | set radvar($n) {} |
172 | > | } else { |
173 | > | catch {unset radvar($n)} |
174 | > | } |
175 | } | |
176 | while {[gets $fi curli] != -1} { | |
177 | if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |