[q-lang-cvs] qcalc calclib.q,1.54,1.55

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

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;