revert to older between.pl

diff --git a/src/prolog/lib/between.pl b/src/prolog/lib/between.pl
index a8e06882fc8bc9dbf14afc1827404ed307a8e75e..1f49dfc781da1096b8b0a969cba6b59feadb1ff2 100644 (file)
--- a/src/prolog/lib/between.pl
+++ b/src/prolog/lib/between.pl
@@ -6,15 +6,10 @@
 :- use_module(library(error)).
 
 between(Lower, Upper, X) :-
-    (  Upper == inf ->
-       must_be(integer, Lower),
-       can_be(integer, X),
-       enumerate_nats(Lower, X)
-    ;  must_be(integer, Lower),
-       must_be(integer, Upper),
-       can_be(integer, X),
-       between_(Lower, Upper, X)
-    ).
+    must_be(integer, Lower),
+    must_be(integer, Upper),
+    can_be(integer, X),
+    between_(Lower, Upper, X). 
 
 between_(Lower, Upper, Lower) :-
     Lower =< Upper.