Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv30165
Modified Files:
calclib.q
Log Message:
bugfixes
Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.54
retrieving revision 1.55
diff -C2 -d -r1.54 -r1.55
*** calclib.q 2 Dec 2007 01:34:56 -0000 1.54
--- calclib.q 2 Dec 2007 01:52:18 -0000 1.55
***************
*** 450,454 ****
where (I,J|_) = get YYTLD!thread_no this_thread:
// request by a task to replace itself with a new task
! = yyset (I,J) 0 || X;
where (I,J) = get YYKEY:
// update existing task
--- 450,454 ----
where (I,J|_) = get YYTLD!thread_no this_thread:
// request by a task to replace itself with a new task
! = X;
where (I,J) = get YYKEY:
// update existing task
***************
*** 584,588 ****
where (H,SEM) = get YYTASKS!(I,J):
// task is alive and kicking, update it with the new data
! = post SEM '(taskwindow X) || yyset (I,J) 0
where 'X = subst 'X
if isthread H and then active H;
--- 584,588 ----
where (H,SEM) = get YYTASKS!(I,J):
// task is alive and kicking, update it with the new data
! = post SEM '(taskwindow X)
where 'X = subst 'X
if isthread H and then active H;
|
