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