improved the printability of synopsis examples

This commit is contained in:
aarne committed 2011-10-24 15:17:53 +00:00
1 parent 316cf2e261
commit 666189c529
4 files changed
+86 -86

No files matched your search

+1 -1
View File
@@ -74,7 +74,7 @@ mkEx = unwords . bind . mkE . words where
mkE e = case e of
"atomic":"term":_ -> ["*"]
"[]":_ -> ["''"]
"pre":p@('{':_):es -> init (init (drop 2 p)) : mkE es
"pre":p@('{':_):es -> init (init (drop 2 p)) : [] ---- mkE es -- occurs only on last position
e0:es -> e0:mkE es
_ -> e