rdf-mt/commit

Get datatypes (un) supported

diff --git a/lib/rdf_mt/graph_consistency.pl b/lib/rdf_mt/graph_consistency.pl
index d3956db..fa63563 100644
--- a/lib/rdf_mt/graph_consistency.pl
+++ b/lib/rdf_mt/graph_consistency.pl
@@ -105,10 +105,11 @@ xsd_subtype_of(_,_).
 %	  * type(Type, String)
 
 literal_value(literal(Data), Value) :-
-	literal_value2(Data, Value, _{dummy:1}). % BUG: loops
+	literal_value2(Data, Value,
+		       mf{datatypes:dt{dummy:1}, regime:rdfs}). % BUG: loops
 
 literal_value(literal(Data), Value, Props) :-
-	literal_value2(Data, Value, Props).
+	literal_value2(Data, Value, Props.datatypes).
 
 
 literal_value2(type(Type, String), Value, Props) :-
@@ -118,7 +119,7 @@ literal_value2(type(Type, String), Value, Props) :-
 	   ), !,
 	numeric_value(Base, String, Value).
 literal_value2(type(Type, String), boolean(Value), Props) :-
-	\+ get_dict(Props, boolean, false),
+	\+ get_dict(boolean, Props, false),
 	rdf_equal(Type, xsd:boolean), !,
 	bool(String, Value).
 literal_value2(type(Type, String), type(Type, String), _) :- !.