Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21386
Modified Files: Tag: desiredata poe.tcl Log Message: add self in __args()
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.11 retrieving revision 1.1.2.2.2.12 diff -C2 -d -r1.1.2.2.2.11 -r1.1.2.2.2.12 *** poe.tcl 23 Jan 2007 18:17:32 -0000 1.1.2.2.2.11 --- poe.tcl 23 Jan 2007 19:03:38 -0000 1.1.2.2.2.12 *************** *** 53,66 **** }
! proc def {self selector args body} { global _ __trace __args if {![info exists _($self:_class)]} {error "unknown class '$self'"} set name ${self}_$selector if {[info exists __trace($self:$selector)]} { ! proc* $name "self $args" "global _; [expand_macros $body]" } { ! proc $name "self $args" "global _; [expand_macros $body]" } ! set __args($name) $args #trace add execution ${self}_$selector enter dedebug } --- 53,67 ---- }
! proc def {self selector argnames body} { global _ __trace __args if {![info exists _($self:_class)]} {error "unknown class '$self'"} set name ${self}_$selector + set argnames [concat [list self] $argnames] if {[info exists __trace($self:$selector)]} { ! proc* $name $argnames "global _; [expand_macros $body]" } { ! proc $name $argnames "global _; [expand_macros $body]" } ! set __args($name) $argnames #trace add execution ${self}_$selector enter dedebug }