diff options
Diffstat (limited to 'dev-lang/yap/files/yap-6.0.6-chr-sublist.patch')
| -rw-r--r-- | dev-lang/yap/files/yap-6.0.6-chr-sublist.patch | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/dev-lang/yap/files/yap-6.0.6-chr-sublist.patch b/dev-lang/yap/files/yap-6.0.6-chr-sublist.patch deleted file mode 100644 index 5ff93ccdd3c6..000000000000 --- a/dev-lang/yap/files/yap-6.0.6-chr-sublist.patch +++ /dev/null @@ -1,48 +0,0 @@ ---- yap-6.orig/library/dialect/hprolog.yap 2010-05-12 01:53:25.000000000 +1200 -+++ yap-6/library/dialect/hprolog.yap 2010-05-16 09:25:26.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) - % |