[PD-cvs] pd/src objective.tcl,1.1.2.22,1.1.2.23

[Mathieu Bouchard]

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"
  }