[cvs-nhc98] When pretty-printing string expressions, avoid the appeara

[Malcolm Wallace]

malcolm: Fri Jul 19 17:31:57 CEST 2002

Update of /usr/src/master/nhc/src/hat/tools
In directory hinken:/tmp/cvs-serv21893

Modified Files:
	SExp.hs 
Log Message:
When pretty-printing string expressions, avoid the appearance of [...]
due to cutoff depth, for instance in the following:
    ["one","tw...","t...",[...],...]
The solution is to peek one character ahead of the cutoff depth in order
to decide between string/list sugaring.  The example above becomes:
    ["one","two","th..","f...",...]
given the same cutoff depth.