[q-lang-cvs] qcalc qcalc.q,1.188,1.189

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.188
retrieving revision 1.189
diff -C2 -d -r1.188 -r1.189
*** qcalc.q	26 Nov 2007 02:23:37 -0000	1.188
--- qcalc.q	26 Nov 2007 09:31:06 -0000	1.189
***************
*** 3668,3672 ****
  		= do flag [(I,J)|V]
  		    if (if time-T0>=0.5 then wait_cursor) ||
! 		      local (qt APP "processEvents" 100) || get ABORTED;
  		= results_loop T0 U [(I,J)|V] otherwise;
  
--- 3668,3674 ----
  		= do flag [(I,J)|V]
  		    if (if time-T0>=0.5 then wait_cursor) ||
! 		      end_recursive ||
! 		      local (qt APP "processEvents" 100) ||
! 		      begin_recursive || get ABORTED;
  		= results_loop T0 U [(I,J)|V] otherwise;