[PD-cvs] pd/src poe.tcl,1.1.2.2.2.8,1.1.2.2.2.9

[Mathieu Bouchard]

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