[PD-cvs] pd/src poe.tcl,1.1.2.2.2.16,1.1.2.2.2.17

Mathieu Bouchard matju at users.sourceforge.net
Sat Aug 4 08:11:20 CEST 2007


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

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
added "suicidal" flag, to exit at the first uncaught exception.


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.16
retrieving revision 1.1.2.2.2.17
diff -C2 -d -r1.1.2.2.2.16 -r1.1.2.2.2.17
*** poe.tcl	29 Jul 2007 19:21:38 -0000	1.1.2.2.2.16
--- poe.tcl	4 Aug 2007 06:11:18 -0000	1.1.2.2.2.17
***************
*** 223,228 ****
--- 223,230 ----
  	return $e
  }
+ set suicidal 0
  proc error_dump {} {
  	puts "[VTred]Exception:[VTgrey] [error_text]"
+ 	if {$::suicidal} {exit 1}
  }
  





More information about the Pd-cvs mailing list