Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31964

Modified Files: Tag: devel_0_39 objective.tcl Log Message: shorter backtraces

Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.22 retrieving revision 1.1.2.23 diff -C2 -d -r1.1.2.22 -r1.1.2.23 *** objective.tcl 6 Sep 2006 00:51:27 -0000 1.1.2.22 --- objective.tcl 6 Sep 2006 23:50:21 -0000 1.1.2.23 *************** *** 168,172 **** regsub -all " invoked from within\n" $errorInfo "" errorInfo regsub -all "\n \(" $errorInfo " (" errorInfo ! #regsub -all {\n[^\n]*procedure "(::unknown|super)"[^\n]*\n} $errorInfo "\n" errorInfo puts "[VTred]Exception:[VTgrey] errorCode=$errorCode; errorInfo=$errorInfo" } --- 168,174 ---- regsub -all " invoked from within\n" $errorInfo "" errorInfo regsub -all "\n \(" $errorInfo " (" errorInfo ! regsub -all {\n[^\n]*procedure "(::unknown|super)"[^\n]*\n} $errorInfo "\n" errorInfo ! regsub -all {\s*while executing\s*\n} $errorInfo "\n" errorInfo ! #regsub {\n$} $errorInfo "" errorInfo puts "[VTred]Exception:[VTgrey] errorCode=$errorCode; errorInfo=$errorInfo" }