Fixed compilation warning

4d667f19 · Taddeüs Kroes · 71ae054f · 4d667f19
Commit 4d667f19 authored Jul 21, 2014 by Taddeüs Kroes
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

color.ml color.ml +1 -1

No files found.
--- a/color.ml
+++ b/color.ml
@@ -38,7 +38,7 @@ let rec short = function

  (* rgb(r,g,b) -> #rrggbb *)
  | Function ("rgb", Nary (",", [r; g; b]))
-    when is_num r & is_num g & is_num b ->
+    when is_num r && is_num g && is_num b ->
    let i c =
      match clip c with
      | Number (n, None) -> int_of_float n