From 96611027f308cb17d6f94b170cbd79f2ffea99d0 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 29 Oct 2013 12:41:56 +0000
Subject: [PATCH] SWI likes nth/4

---
 library/dialect/swi.yap      | 2 ++
 library/dialect/swi/INDEX.pl | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/library/dialect/swi.yap b/library/dialect/swi.yap
index b40c2df1e..612a20330 100644
--- a/library/dialect/swi.yap
+++ b/library/dialect/swi.yap
@@ -46,6 +46,8 @@
 			    selectchk/3,
 			    sublist/2,
 			    sumlist/2,
+			    nth1/4,
+			    nth0/4,
 			    nth1/3,
 			    nth0/3]).
 
diff --git a/library/dialect/swi/INDEX.pl b/library/dialect/swi/INDEX.pl
index e39e0a1e9..c10596e57 100644
--- a/library/dialect/swi/INDEX.pl
+++ b/library/dialect/swi/INDEX.pl
@@ -18,7 +18,9 @@ index(selectchk,3,system,library(dialect/swi)).
 index(sublist,2,system,library(dialect/swi)).
 index(sumlist,2,system,library(dialect/swi)).
 index(nth1,3,system,library(dialect/swi)).
+index(nth1,4,system,library(dialect/swi)).
 index(nth0,3,system,library(dialect/swi)).
+index(nth0,4,system,library(dialect/swi)).
 index(maplist,2,system,library(dialect/swi)).
 index(maplist,3,system,library(dialect/swi)).
 index(maplist,4,system,library(dialect/swi)).