Fixed string_trim, updated xmlm.ml

2017-06-19 18:00:41 +01:00 · 2017-06-19 18:00:41 +01:00 · a69d4ee835
parent 26647cdbd3
commit a69d4ee835
2 changed files with 390 additions and 382 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -3227,8 +3227,8 @@ let rdf = "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 (* For OCaml < 4.00 *)
 let string_trim s =
  implode
-    (dropwhile
+    (rev (dropwhile
-       Pdf.is_whitespace (rev (dropwhile Pdf.is_whitespace (explode s))))
+       Pdf.is_whitespace (rev (dropwhile Pdf.is_whitespace (explode s)))))
 let combine_with_spaces strs =
  string_trim
--- a/xmlm.ml
+++ b/xmlm.ml