[q-lang-cvs] qcalc qcalc.q,1.176,1.177

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

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;