Changeset 842 for trunk/tcl

Timestamp:

Jan 3, 2008 2:24:30 PM (15 years ago)

Author:

gah

Message:

allow component names with digits

File:

• trunk/tcl/scripts/library.tcl (modified) (1 diff)

trunk/tcl/scripts/library.tcl

@@ -806 +806 @@
     set node $lastnode
     foreach part $path {
-        if {![regexp {^(([a-zA-Z_]+#?)([0-9]*))?(\((.*)\))?$} $part \
+        if {![regexp {^(([a-zA-Z0-9_]*[a-zA-Z_]+#?)([0-9]*))?(\((.*)\))?$} $part \
                match dummy type index dummy name]} {
             error "bad path component \"$part\""