pd/src poe.tcl,1.1.2.2.2.25,1.1.2.2.2.26 - Pd-cvs

13 Oct 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19343
Modified Files:
      Tag: desiredata
    poe.tcl 
Log Message:
tmp fix to previous commit
Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.25
retrieving revision 1.1.2.2.2.26
diff -C2 -d -r1.1.2.2.2.25 -r1.1.2.2.2.26
*** poe.tcl	12 Oct 2007 11:33:14 -0000	1.1.2.2.2.25
--- poe.tcl	13 Oct 2007 00:45:08 -0000	1.1.2.2.2.26
***************
*** 44,49 ****
    } else {
    	if {![catch {time {}}]} {
! 			set body  "set t [time {$body}]"
! 			proc $name $args "$body; puts "[VTgreen]CALL TO PROC $name [join $argl " "], [VTred][lrange [split $t ] 0 1] [VTgrey]""
    	} {
    		proc $name $args "puts "[VTgreen]CALL TO PROC $name [join $argl " "][VTgrey]"; $body"
--- 44,54 ----
    } else {
    	if {![catch {time {}}]} {
! 			if {![regexp "return" $body]} {
! 				set body  "time {$body}"
! 				proc $name $args "puts "[VTgreen]CALL TO PROC $name [join $argl " "], [VTred][lrange [split [$body] ] 0 1] [VTgrey]""
! 			} {
! 				proc $name $args "puts "[VTgreen]CALL TO PROC $name [join $argl " "][VTgrey]"; $body"
! 			}
! 			
    	} {
    		proc $name $args "puts "[VTgreen]CALL TO PROC $name [join $argl " "][VTgrey]"; $body"