[q-lang-cvs] qcalc calclib.q,1.42,1.43

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

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

Modified Files:
	calclib.q 
Log Message:
bugfixes

Index: calclib.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/calclib.q,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** calclib.q	22 Nov 2007 03:12:41 -0000	1.42
--- calclib.q	23 Nov 2007 21:11:27 -0000	1.43
***************
*** 440,444 ****
  		= YYKEY := () || setval (I,J) Y
  		    where 'X = get YYACT!(I,J),
! 		      Y = YYKEY := (I,J) || catch fail X;
  
  yyclearaction (I:Int,J:Int)
--- 440,444 ----
  		= YYKEY := () || setval (I,J) Y
  		    where 'X = get YYACT!(I,J),
! 		      Y = YYKEY := (I,J) || catch (YYKEY := () || fail) X;
  
  yyclearaction (I:Int,J:Int)