Changeset 746525a in tol

Timestamp:

Feb 21, 2012, 5:14:35 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

e63f384

Parents:

82871e8

Message:

refs #1438

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4170 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolinspe.tcl (modified) (1 diff)

tolbase/lib/toltk/tolinspe.tcl

@@ -1664 +1664 @@
       } elseif { $grammar eq "Set" || $grammar eq "NameBlock" } {
         #Tolcon_Trace "Set : -- $vinfo --"
-        if { $grammar eq "NameBlock" } {
-          set knownReference [ list "NameBlock" $var ]
-        }
+        set knownReference [ list $grammar $var ]
         InsertChild $grammar $var [lindex $vinfo 2] [lindex $vinfo 3] [list [lindex $vinfo 4]] \
           $item_id [lindex $vinfo 5] [lindex $vinfo 6] [lindex $vinfo 7]