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