[q-lang-cvs] qcalc qcalc.q,1.136,1.137

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv26137

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.136
retrieving revision 1.137
diff -C2 -d -r1.136 -r1.137
*** qcalc.q	12 Nov 2007 21:06:43 -0000	1.136
--- qcalc.q	13 Nov 2007 03:34:53 -0000	1.137
***************
*** 2633,2636 ****
--- 2633,2638 ----
  		  UNDO_LIST := [(I,J;N,M)|get UNDO_LIST] || REDO_LIST := [];
  
+ save_undo (I,J)	= save_undo [(I,J)];
+ 
  save_undo L:List
  		= //printf "*** save undo: %s\n" (str L) ||
***************
*** 2640,2643 ****
--- 2642,2648 ----
  		    where L = undo_cellvals L;
  
+ merge_undo (I,J)
+ 		= merge_undo [(I,J)];
+ 
  merge_undo L:List
  		= //printf "*** merge undo: %s ++ %s\n" (str L0,str L) ||