address issues #143, #150, #155

This commit is contained in:
Mark Thom
2019-09-02 16:53:31 -04:00
parent 07412b9d34
commit 2c880b2bc0
25 changed files with 314 additions and 210 deletions

View File

@@ -52,7 +52,7 @@
del_max_assoc/4 % +Assoc0, ?Key, ?Value, ?Assoc
]).
:- use_module(library(lists)).
:- use_module('src/prolog/lib/lists.pl').
/** <module> Binary associations

View File

@@ -4,8 +4,8 @@
'$add_to_list'/3, '$del_attr'/3, '$del_attr_step'/3,
'$del_attr_buried'/4]).
:- use_module(library(dcgs)).
:- use_module(library(terms)).
:- use_module('src/prolog/lib/dcgs.pl').
:- use_module('src/prolog/lib/terms.pl').
:- op(1199, fx, attribute).

View File

@@ -2,8 +2,8 @@
%% TODO: numlist/5.
:- use_module(library(lists), [length/2]).
:- use_module(library(error)).
:- use_module('src/prolog/lib/lists.pl', [length/2]).
:- use_module('src/prolog/lib/error.pl').
between(Lower, Upper, X) :-
must_be(integer, Lower),

View File

@@ -2,8 +2,8 @@
:- module(dcgs, [phrase/2, phrase/3]).
:- use_module(library(lists), [append/3]).
:- use_module(library(terms)).
:- use_module('src/prolog/lib/lists.pl', [append/3]).
:- use_module('src/prolog/lib/terms.pl').
phrase(G, G) :-
nonvar(G), G = [_|_], !.

View File

@@ -1,7 +1,7 @@
:- module(dif, [dif/2]).
:- use_module(library(atts)).
:- use_module(library(lists), [append/3]).
:- use_module('src/prolog/lib/atts.pl').
:- use_module('src/prolog/lib/lists.pl', [append/3]).
:- attribute dif/1.

View File

@@ -1,6 +1,6 @@
:- module(freeze, [freeze/2]).
:- use_module(library(atts)).
:- use_module('src/prolog/lib/atts.pl').
:- attribute frozen/1.

View File

@@ -52,7 +52,7 @@
ord_intersection/2 % +PowerSet, -Intersection
]).
:- use_module(library(lists)).
:- use_module('src/prolog/lib/lists.pl').
/** <module> Ordered set manipulation
Ordered sets are lists with unique elements sorted to the standard order

View File

@@ -2,7 +2,7 @@
memberd_t/3, tfilter/3, tmember/2, tmember_t/3,
tpartition/4]).
:- use_module(library(dif)).
:- use_module('src/prolog/lib/dif.pl').
if_(If_1, Then_0, Else_0) :-
call(If_1, T),

View File

@@ -1,6 +1,6 @@
:- module(terms, [numbervars/3]).
:- use_module(library(error)).
:- use_module('src/prolog/lib/error.pl').
numbervars(Term, N0, N) :-
catch(internal_numbervars(Term, N0, N), error(E,Ctx),