diff options
| author | Emilio Jesus Gallego Arias | 2019-11-21 15:38:39 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-11-21 15:38:39 +0100 |
| commit | d016f69818b30b75d186fb14f440b93b0518fc66 (patch) | |
| tree | 32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /vernac/mltop.ml | |
| parent | b680b06b31c27751a7d551d95839aea38f7fbea1 (diff) | |
[coq] Untabify the whole ML codebase.
We also remove trailing whitespace.
Script used:
```bash
for i in `find . -name '*.ml' -or -name '*.mli' -or -name '*.mlg'`; do expand -i "$i" | sponge "$i"; sed -e's/[[:space:]]*$//' -i.bak "$i"; done
```
Diffstat (limited to 'vernac/mltop.ml')
| -rw-r--r-- | vernac/mltop.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/mltop.ml b/vernac/mltop.ml index 0130de2543..9c18441d9c 100644 --- a/vernac/mltop.ml +++ b/vernac/mltop.ml @@ -127,7 +127,7 @@ let ml_load s = | WithoutTop -> try Dynlink.loadfile s; s - with Dynlink.Error a -> + with Dynlink.Error a -> user_err ~hdr:"Mltop.load_object" (strbrk "while loading " ++ str s ++ strbrk ": " ++ str (Dynlink.error_message a)) @@ -147,7 +147,7 @@ let dir_ml_use s = | _ -> let moreinfo = if Sys.(backend_type = Native) then " Loading ML code works only in bytecode." - else "" + else "" in user_err ~hdr:"Mltop.dir_ml_use" (str "Could not load ML code." ++ str moreinfo) |