diff options
Diffstat (limited to 'dev-lang/yap/files/yap-6.0.4-chr-sublist.patch')
| -rw-r--r-- | dev-lang/yap/files/yap-6.0.4-chr-sublist.patch | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/dev-lang/yap/files/yap-6.0.4-chr-sublist.patch b/dev-lang/yap/files/yap-6.0.4-chr-sublist.patch new file mode 100644 index 000000000000..84795b4d18ba --- /dev/null +++ b/dev-lang/yap/files/yap-6.0.4-chr-sublist.patch @@ -0,0 +1,48 @@ +--- yap-6.0.4.orig/library/dialect/hprolog.yap 2010-05-01 04:53:07.000000000 +1200 ++++ yap-6.0.4/library/dialect/hprolog.yap 2010-05-16 09:10:46.000000000 +1200 +@@ -38,7 +38,7 @@ + split_at/4, % +N, +List, -FirstElements, -LastElements + max_go_list/2, % +List, -Max + or_list/2, % +ListOfInts, -BitwiseOr +- sublist/2, % ?Sublist, +List ++ chr_sublist/2, % ?Sublist, +List + bounded_sublist/3, % ?Sublist, +List, +Bound + chr_delete/3, + init_store/2, +@@ -55,9 +55,9 @@ + % lookup_ht1/4 + ]). + +-:- reexport('../lists',[sublist/2]). ++%:- reexport('../lists',[sublist/2]). + +-%:- use_module(library(lists)). ++:- use_module(library(lists)). + :- use_module(library(assoc)). + + /** <module> hProlog compatibility library +@@ -213,15 +213,15 @@ + % + % True if all elements of Sub appear in List in the same order. + +-%sublist(L, L). +-%sublist(Sub, [H|T]) :- +-% '$sublist1'(T, H, Sub). +- +-%'$sublist1'(Sub, _, Sub). +-%'$sublist1'([H|T], _, Sub) :- +-% '$sublist1'(T, H, Sub). +-%'$sublist1'([H|T], X, [X|Sub]) :- +-% '$sublist1'(T, H, Sub). ++chr_sublist(L, L). ++chr_sublist(Sub, [H|T]) :- ++ '$sublist1'(T, H, Sub). ++ ++'$sublist1'(Sub, _, Sub). ++'$sublist1'([H|T], _, Sub) :- ++ '$sublist1'(T, H, Sub). ++'$sublist1'([H|T], X, [X|Sub]) :- ++ '$sublist1'(T, H, Sub). + + %% bounded_sublist(?Sub, +List, +Bound:integer) + % |