From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 15 Sep 2005 09:12:59 +0000 (+0000)
Subject: bugfix: default "false" used to set the _true_ uri ...
X-Git-Tag: LAST_BEFORE_NEW~131
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7730ab45cb810e7ea0dfa804321b339c822ee87a;p=helm.git

bugfix: default "false" used to set the _true_ uri ...
---

diff --git a/helm/ocaml/cic/libraryObjects.ml b/helm/ocaml/cic/libraryObjects.ml
index 6a1e8a122..967318721 100644
--- a/helm/ocaml/cic/libraryObjects.ml
+++ b/helm/ocaml/cic/libraryObjects.ml
@@ -52,7 +52,7 @@ let insert_unique e extract l =
   e :: l'
 
 let set_default what l =
- match what,l with
+  match what,l with
     "equality",[eq_URI;sym_eq_URI;trans_eq_URI;eq_ind_URI;eq_ind_r_URI] ->
       eq_URIs_ref :=
        insert_unique (eq_URI,sym_eq_URI,trans_eq_URI,eq_ind_URI,eq_ind_r_URI)
@@ -60,7 +60,7 @@ let set_default what l =
   | "true",[true_URI] ->
       true_URIs_ref := insert_unique true_URI (fun x -> x) !true_URIs_ref
   | "false",[false_URI] ->
-      true_URIs_ref := insert_unique false_URI (fun x -> x) !false_URIs_ref
+      false_URIs_ref := insert_unique false_URI (fun x -> x) !false_URIs_ref
   | "absurd",[absurd_URI] ->
       absurd_URIs_ref := insert_unique absurd_URI (fun x -> x) !absurd_URIs_ref
   | _,_ -> raise NotRecognized