[q-lang-cvs] qcalc calclib.q,1.32,1.33

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

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

Modified Files:
	calclib.q 
Log Message:
bugfixes

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** calclib.q	16 Nov 2007 08:08:31 -0000	1.32
--- calclib.q	16 Nov 2007 10:14:50 -0000	1.33
***************
*** 616,620 ****
  		= post SEM B if isthread H and then active H;
  // thread has terminated and is activated again, restart it
! 		= YYTASKS := insert (get YYTASKS) (I,J;H,SEM,'X)
  		    where SEM:Semaphore = semaphore,
  		      H:Thread =
--- 616,621 ----
  		= post SEM B if isthread H and then active H;
  // thread has terminated and is activated again, restart it
! 		= YYTASKS := insert (get YYTASKS) (I,J;H,SEM,'X) ||
! 		  post SEM B
  		    where SEM:Semaphore = semaphore,
  		      H:Thread =