diff --git a/src/smeggdrop/smeggdrop/interpx.tcl b/src/smeggdrop/smeggdrop/interpx.tcl index 9c6ce5a..99d2963 100644 --- a/src/smeggdrop/smeggdrop/interpx.tcl +++ b/src/smeggdrop/smeggdrop/interpx.tcl @@ -167,9 +167,9 @@ method {inspect proc} proc { if ![info exists vars_existing_before_eval($var)] { $self did create var $var } else { - if [info exists vars_touched_during_eval($var)] { +# if [info exists vars_touched_during_eval($var)] { $self did update var $var - } +# } unset vars_existing_before_eval($var) } } @@ -203,9 +203,9 @@ method {inspect proc} proc { } method {did touch var} {key var args} { -# if {$key eq $private_key} { + if {$key eq $private_key} { set vars_touched_during_eval($var) {} -# } + } } method trace_command_for_var var { diff --git a/state b/state index efe78e8..2397245 160000 --- a/state +++ b/state @@ -1 +1 @@ -Subproject commit efe78e85d095142a1b6d059faa3b9f0a628eaeec +Subproject commit 2397245f52a439d6f5ed5f7f28007eb393924271