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)
|
