Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv8858
Modified Files:
qcalc.q
Log Message:
filter out empty cells for printer 'all' selection
Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.176
retrieving revision 1.177
diff -C2 -d -r1.176 -r1.177
*** qcalc.q 23 Nov 2007 12:40:04 -0000 1.176
--- qcalc.q 23 Nov 2007 12:50:53 -0000 1.177
***************
*** 1927,1931 ****
where I2 = foldl1 max $ map fst W,
J2 = foldl1 max $ map snd W
! if not null W where W = keys (get CELLS);
= () otherwise;
--- 1927,1932 ----
where I2 = foldl1 max $ map fst W,
J2 = foldl1 max $ map snd W
! if not null W
! where W = filter (neg is_empty) $ keys $ get CELLS;
= () otherwise;
|
