diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2016-09-27 16:33:47 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-21 15:47:13 +0100 |
commit | 2617a83e572531e26734cff8b9eb8aa09d49b850 (patch) | |
tree | e8bef71342bd2980a5efa743a2639e0809118bc0 /plugins/extraction | |
parent | 14155762a7cd46ed6a3e9cf2a58e11ee1244b188 (diff) |
[pp] Remove `Pp.stras`.
Mostly unused, we ought to limit spacing in the boxes themselves.
Diffstat (limited to 'plugins/extraction')
-rw-r--r-- | plugins/extraction/common.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml index 0a591e786..fc8d5356c 100644 --- a/plugins/extraction/common.ml +++ b/plugins/extraction/common.ml @@ -67,7 +67,9 @@ let pp_boxed_tuple f = function blocks is less that a line length. To avoid this awkward situation, we attach a big virtual size to [fnl] newlines. *) -let fnl () = stras (1000000,"") ++ fnl () +(* EG: This looks quite suspicious... but beware of bugs *) +(* let fnl () = stras (1000000,"") ++ fnl () *) +let fnl () = fnl () let fnl2 () = fnl () ++ fnl () |