diff --git a/src/smeggdrop/smeggdrop/interpx.tcl b/src/smeggdrop/smeggdrop/interpx.tcl index 84d1cb5..16cecc7 100644 --- a/src/smeggdrop/smeggdrop/interpx.tcl +++ b/src/smeggdrop/smeggdrop/interpx.tcl @@ -209,7 +209,7 @@ method {inspect proc} proc { } method trace_command_for_var var { - list ::interpx::touched_var $private_key $var + #list ::interpx::touched_var $private_key $var } # callbacks @@ -343,7 +343,7 @@ method {inspect proc} proc { $self . namespace eval ::interpx {} $interp alias ::interpx::noop expr 0 $interp alias ::interpx::timeout ::interpx::timeout - $self expose {did touch var} ::interpx::touched_var + $self expose {did touch var} ::interpx::touched_var } diff --git a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl index 6e2a412..ffad728 100644 --- a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl +++ b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl @@ -50,7 +50,7 @@ snit::type versioned_interpreter { -onprocupdated [list $self did update proc] \ -onprocdestroyed [list $self did destroy proc] \ -onvarcreated [list $self did create var] \ - -onvarupdated [list $self did touch var] \ + -onvarupdated [list $self did update var] \ -onvardestroyed [list $self did destroy var] \ -timeout [$self cget -timeout] ]