Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28405
Modified Files: Tag: desiredata poe.tcl Log Message: don't say "errorInfo=" when showing errorInfo
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.8 retrieving revision 1.1.2.2.2.9 diff -C2 -d -r1.1.2.2.2.8 -r1.1.2.2.2.9 *** poe.tcl 14 Dec 2006 02:56:33 -0000 1.1.2.2.2.8 --- poe.tcl 19 Dec 2006 04:06:40 -0000 1.1.2.2.2.9 *************** *** 199,204 ****
proc error_text {} { ! global errorInfo ! set e $errorInfo regsub -all " invoked from within\n" $e "" e regsub -all "\n \(" $e " (" e --- 199,203 ----
proc error_text {} { ! set e $::errorInfo regsub -all " invoked from within\n" $e "" e regsub -all "\n \(" $e " (" e *************** *** 209,213 **** } proc error_dump {} { ! puts "[VTred]Exception:[VTgrey] errorInfo=[error_text]" }
--- 208,212 ---- } proc error_dump {} { ! puts "[VTred]Exception:[VTgrey] [error_text]" }