ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/util/do_file.tcl
(Generate patch)

Comparing ray/src/util/do_file.tcl (file contents):
Revision 2.6 by greg, Wed Feb 15 14:12:05 1995 UTC vs.
Revision 2.7 by greg, Tue Mar 21 16:19:26 1995 UTC

# 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 <                        set radvar($n) {}
170 >                        catch {unset radvar($n)}
171                  }
172                  while {[gets $fi curli] != -1} {
173                          if [regexp {^[a-zA-Z][a-zA-Z0-9]* *=} $curli] {

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)