[q-lang-cvs] qcalc calclib.q,1.26,1.27

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

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

Modified Files:
	calclib.q 
Log Message:
remove debugging code

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** calclib.q	15 Nov 2007 00:08:33 -0000	1.26
--- calclib.q	15 Nov 2007 00:36:41 -0000	1.27
***************
*** 570,574 ****
  yytask (I:Int,J:Int) 'X
  where (H,SEM,'_) = get YYTASKS!(I,J):
- 		= puts "Task updated\n" || fail;
  		= post SEM (subst 'X) if isthread H and then active H;
  		= YYTASKS := insert (get YYTASKS) (I,J;H,SEM,subst 'X);
--- 570,573 ----
***************
*** 578,582 ****
  yytask (I:Int,J:Int) ()
  where (H,SEM,'X) = get YYTASKS!(I,J):
- 		= puts "Task killed\n" || fail;
  		= cancel H || YYTASKS := delete (get YYTASKS) (I,J) ||
  		  YYSEM := delete (get YYSEM) (thread_no H)
--- 577,580 ----