[q-lang-cvs] qcalc calclib.q,1.51,1.52

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

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

Modified Files:
	calclib.q 
Log Message:
bugfixes

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** calclib.q	1 Dec 2007 09:59:37 -0000	1.51
--- calclib.q	1 Dec 2007 23:23:50 -0000	1.52
***************
*** 549,554 ****
  where (H,SEM,'_) = get YYTASKS!(I,J):
  // task is alive and kicking, update it with the new data
! 		= post SEM '(taskbutton (S,INIT) X) || yyset (I,J) INIT
! 		    where 'X = subst 'X
  		    if isthread H and then active H;
  // zombie: kill it, then restart
--- 549,555 ----
  where (H,SEM,'_) = get YYTASKS!(I,J):
  // task is alive and kicking, update it with the new data
! 		= YYTASKS := insert (get YYTASKS) (I,J;H,SEM,'X) ||
! 		  post SEM '(taskbutton (S,INIT) Y) || yyset (I,J) INIT
! 		    where 'Y = subst 'X
  		    if isthread H and then active H;
  // zombie: kill it, then restart