From ff135d53d2623d3b3c4532b96b028c4e44038dd7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa=20II?= Date: Tue, 20 Apr 2010 23:10:40 +0100 Subject: [PATCH] simplify compatibility --- library/dialect/swi.yap | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/library/dialect/swi.yap b/library/dialect/swi.yap index 497d052b9..dad6fdafd 100755 --- a/library/dialect/swi.yap +++ b/library/dialect/swi.yap @@ -112,15 +112,7 @@ swi_predicate_table(_,include(X,Y,Z),apply,include(X,Y,Z)). swi_predicate_table(_,exclude(X,Y,Z),apply,exclude(X,Y,Z)). swi_predicate_table(_,partition(X,Y,Z,A),apply,partition(X,Y,Z,A)). swi_predicate_table(_,partition(X,Y,Z,A,B),apply,partition(X,Y,Z,A,B)). -% swi_predicate_table(_,set_test_options(X),plunit,set_test_options(X)). -% swi_predicate_table(_,begin_tests(X),plunit,begin_tests(X)). -% swi_predicate_table(_,begin_tests(X,Y),plunit,begin_tests(X,Y)). -% swi_predicate_table(_,end_tests(X),plunit,end_tests(X)). -% swi_predicate_table(_,run_tests,plunit,run_tests). -% swi_predicate_table(_,run_tests(X),plunit,run_tests(X)). -% swi_predicate_table(_,load_test_files(X),plunit,load_test_files(X)). -% swi_predicate_table(_,running_tests,plunit,running_tests). -% swi_predicate_table(_,test_report(X),plunit,test_report(X)). +swi_predicate_table(_,partition(X,Y,Z),swi,plus(X,Y,Z)). swi_mchk(X,Y) :- lists:memberchk(X,Y).