better syntax for timeout cancel in gaw_cmd

2020-11-08 18:06:55 +01:00 · 2020-11-08 18:06:55 +01:00 · e6808f844a
parent ec6ad39acc
commit e6808f844a
1 changed files with 2 additions and 2 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -773,10 +773,10 @@ proc gaw_cmd {cmd} {
  fileevent $gaw_fd readable gaw_echoline
  while { $n} { 
    #timeout for abnormal deadlocks 
-    after 10000 set gaw_fd stalled
+    set wd [after 10000 set gaw_fd stalled]
    vwait gaw_fd
    if { $gaw_fd ne {stalled} } {
-      after cancel set gaw_fd stalled
+      after cancel $wd
    } else { 
      puts "timeout waiting for gaw response.."
      break