metas

packages/clpqr/clpq/itf_q.pl

@@ -62,7 +62,7 @@
 	[
 	    class_drop/2
 	]).
-
+
 do_checks(Y,Ty,St,Li,Or,Cl,No,Later) :-
 	numbers_only(Y),
 	verify_nonzero(No,Y),
@@ -76,7 +76,7 @@ numbers_only(Y) :-
 	;   throw(type_error(_X = Y,2,'a rational number',Y))
 	),
 	!.
-
+ø
 % verify_nonzero(Nonzero,Y)
 %
 % if Nonzero = nonzero, then verify that Y is not zero

packages/clpqr/clpqr/geler.pl

@@ -43,6 +43,10 @@
 	    project_nonlin/3,
 	    collect_nonlin/3
 	]).
+:- use_module(library(maplist),
+	      [
+	       maplist/2
+	      ]).
 
 % l2conj(List,Conj)
 %

packages/clpqr/clpqr/itf.pl

@@ -47,6 +47,10 @@
 	    dump_nonzero/3,
 	    clp_type/2
 	]).
+:- use_module(library(maplist),
+	      [
+	       maplist/2
+	      ]).
 
 
 clp_type(Var,Type) :-

packages/clpqr/clpr/itf_r.pl

@@ -63,6 +63,10 @@
 	[
 	    class_drop/2
 	]).
+:- use_module(library(maplist),
+	      [
+	       maplist/2
+	      ]).
 
 do_checks(Y,Ty,St,Li,Or,Cl,No,Later) :-
 	numbers_only(Y),