Fix missing domain

src/grew_fs.ml

@@ -210,7 +210,7 @@ module G_fs = struct
     match List_.sort_assoc feat_name t with
       | None -> None
       | Some (Float i) -> Some i
-      | Some _ -> Error.build "[Fs.get_float_feat]"
+      | Some (String s) -> Error.build "[Fs.get_float_feat] feat_name=%s, value=%s" feat_name s
 
   (* ---------------------------------------------------------------------- *)
   let to_string t = List_.to_string G_feature.to_string "," t

src/grew_grs.ml

@@ -763,7 +763,7 @@ module New_grs = struct
 
 
   let det_iter_pack ?domain decl_list instance = (* return a (big step, inst) *)
-    match det_pack_one decl_list instance with
+    match det_pack_one ?domain decl_list instance with
     | None -> None
     | Some (x, rule_name) ->
       let first = {Libgrew_types.rule_name; up=G_deco.empty; down=G_deco.empty} in
@@ -843,13 +843,13 @@ module New_grs = struct
           | None -> Error.build "Simple rewrite, cannot find strat %s" subname
           | Some (Rule r,_) ->
             begin
-              match det_iter_pack [Rule r] instance with
+              match det_iter_pack ?domain [Rule r] instance with
               | Some (big_step, final) -> Some [(Rule.get_name r, big_step, final)]
               | None -> Some []
             end
           | Some (Package (pack_name, decl_list), _) ->
             begin
-              match det_iter_pack decl_list instance with
+              match det_iter_pack ?domain decl_list instance with
               | Some (big_step, final) -> Some [(pack_name, big_step, final)]
               | None -> Some []
             end