clear debug msg

2020-12-01 14:39:02 +01:00 · 2020-12-01 14:39:02 +01:00 · aef66d6ff6
parent 83ae1c01b6
commit aef66d6ff6
1 changed files with 1 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -2008,7 +2008,7 @@ proc tclpropeval {s instname symname} {
 # this hook is called in translate() if whole string is contained in a tcleval(...) construct
 proc tclpropeval2 {s} {
  global tcl_debug env
-  if {$tcl_debug <=-0} {puts "tclpropeval2: $s"}
+  if {$tcl_debug <=-1} {puts "tclpropeval2: $s"}
  set path [string range [xschem get sch_path] 1 end]
  regsub {^tcleval\(} $s {} s
  regsub {\)([ \n\t]*)$} $s {\1} s