Interpret deep-sequoia special deps “S:…” and “D:…” even if no domain is defined

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@9136 7838e531-6607-4d57-9587-6c381814729c

src/grew_types.ml

@@ -298,7 +298,7 @@ module Label = struct
 
   let get_style ?domain i = match domain with
     | Some ((_,styles),_) -> styles.(i)
-    | _ -> { Label_domain.default with Label_domain.text = no_domain.(i) }
+    | None -> Label_domain.parse_option no_domain.(i) []
 
   let is_void ?domain t =
     let style = get_style ?domain t in