[PD-cvs] pd/src desire.tk,1.1.2.231,1.1.2.232

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed error recovery


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.231
retrieving revision 1.1.2.232
diff -C2 -d -r1.1.2.231 -r1.1.2.232
*** desire.tk	12 Jun 2006 16:01:54 -0000	1.1.2.231
--- desire.tk	12 Jun 2006 18:50:53 -0000	1.1.2.232
***************
*** 185,191 ****
  	set @redo {}
  	set err [catch {perform [lindex $backup end]}]
  	set @redo $@undo
  	set @undo [lrange $backup 0 end-1]
! 	if {$err} [error "error during undo"]
  }
  
--- 185,192 ----
  	set @redo {}
  	set err [catch {perform [lindex $backup end]}]
+ 	if {$err} {set err $errorInfo}
  	set @redo $@undo
  	set @undo [lrange $backup 0 end-1]
! 	if {$err} [error "error during undo: $err"]
  }
  
***************
*** 208,215 ****
  	set rbackup @redo; set @redo {}
  	set err [catch {uplevel 1 $code}]
  	lappend backup_undo $@undo_queue
  	set @undo_queue $ubackup
  	set @redo_queue $rbackup
! 	if {$err} [error "error during undo"]
  }
  
--- 209,217 ----
  	set rbackup @redo; set @redo {}
  	set err [catch {uplevel 1 $code}]
+ 	if {$err} {set err $errorInfo}
  	lappend backup_undo $@undo_queue
  	set @undo_queue $ubackup
  	set @redo_queue $rbackup
! 	if {$err} [error "error during undo: $err"]
  }