Unified · Split
| @@ -4682,9 +4682,9 @@ let () = · 4681 unmodified lines | |||
| 4682 | let css = filecontents path in | 4682 | let css = filecontents path in |
| 4683 | let l = String.length css in | 4683 | let l = String.length css in |
| 4684 | conf.css <- | 4684 | conf.css <- |
| 4685 | if substratis css (l-2) "\r\n" | 4685 | if l > 1 && substratis css (l-2) "\r\n" |
| 4686 | then String.sub css 0 (l-2) | 4686 | then String.sub css 0 (l-2) |
| 4687 | else (if css.[l-1] = '\n' then String.sub css 0 (l-1) else css) | 4687 | else (if l > 0 && css.[l-1] = '\n' then String.sub css 0 (l-1) else css) |
| 4688 | end; | 4688 | end; |
| 4689 | S.stderr := Ffi.init cs ( | 4689 | S.stderr := Ffi.init cs ( |
| 4690 | conf.angle, conf.fitmodel, (conf.trimmargins, conf.trimfuzz), | 4690 | conf.angle, conf.fitmodel, (conf.trimmargins, conf.trimfuzz), |