9 integer
s_wsle(a
) cilist
*a
;
11 integer
s_wsle(cilist
*a
)
15 if(n
=c_le(a
)) return(n
);
23 if(f__curunit
->uwrt
!= 1 && f__nowwriting(f__curunit
))
24 err(a
->cierr
, errno
, "list output start");
35 if (!n
&& fflush(f__cf
))
36 err(f__elist
->cierr
, errno
, "write end");