Changeset 5869 for branches/1.4-release/lang/tcl

Timestamp:

Sep 17, 2015, 9:30:15 AM (9 years ago)

Author:

gah

Message:

comment out debug messages for UQ

File:

• branches/1.4-release/lang/tcl/scripts/library.tcl (modified) (1 diff)

branches/1.4-release/lang/tcl/scripts/library.tcl

@@ -1153 +1153 @@
     }
     if {$varout == "\[\]"} {set varout ""}
-    puts "uq_get_vars returning $varout"
+    #puts "uq_get_vars returning $varout"
     return [list $varout $count]
 }