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
|
