Commit b8a0f5c9 authored by Taddeüs Kroes's avatar Taddeüs Kroes

Cleanup + minor bugfix

parent e33743d2
...@@ -117,7 +117,6 @@ let rec unfold = function ...@@ -117,7 +117,6 @@ let rec unfold = function
| [] -> [] | [] -> []
| [color] when Color_names.is_color color -> [make "color" color] | [color] when Color_names.is_color color -> [make "color" color]
| tl -> raise (Box_error (Expr (Concat tl), "invalid background shortcut")) | tl -> raise (Box_error (Expr (Concat tl), "invalid background shortcut"))
(*| _ -> failwith "invalid background shortcut"*)
in in
let id_repeat = function let id_repeat = function
| repeat :: (Uri _ as image) :: tl -> | repeat :: (Uri _ as image) :: tl ->
...@@ -279,7 +278,7 @@ let rec make_shorthands decls = ...@@ -279,7 +278,7 @@ let rec make_shorthands decls =
let replace (base, important) group tl = let replace (base, important) group tl =
match fold (List.rev group) base with match fold (List.rev group) base with
| Some short_value -> (base, short_value, important) :: tl | Some short_value -> (base, short_value, important) :: tl
| None -> group @ tl | None -> List.rev_append group tl
in in
let shorthands = KM.fold replace groups [] in let shorthands = KM.fold replace groups [] in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment