- probe: critical bug fixed (all objects were deleted due to wrong test)

[helm.git] / matita / components / binaries / probe / options.ml

diff --git a/matita/components/binaries/probe/options.ml b/matita/components/binaries/probe/options.ml
index e243241d0878584eb4fc87496ec8c182fc3d4419..4c3c51d12028db93d7378371a375a59eaa970d10 100644 (file)
--- a/matita/components/binaries/probe/options.ml
+++ b/matita/components/binaries/probe/options.ml
@@ -9,22 +9,39 @@
      \ /   This software is distributed as is, NO WARRANTY.     
       V_______________________________________________________________ *)
 
-let default_objs = []
+module R  = Helm_registry
+module US = NUri.UriSet
 
-let default_srcs = []
+let default_objs = US.empty
+
+let default_srcs = US.empty
+
+let default_remove = []
 
 let default_exclude = []
 
 let default_net = 0
 
+let default_no_devel = true
+
+let default_no_init = true
+
 let objs = ref default_objs
 
 let srcs = ref default_srcs
 
+let remove = ref default_remove
+
 let exclude = ref default_exclude
 
 let net = ref default_net
 
+let no_devel = ref default_no_devel
+
+let no_init = ref default_no_init
+
 let clear () =
-   objs := default_objs; srcs := default_srcs;
-   exclude := default_exclude; net := default_net
+   R.clear ();
+   objs := default_objs; srcs := default_srcs; remove := default_remove;
+   exclude := default_exclude; net := default_net;
+   no_devel := default_no_devel; no_init := default_no_init