begin work on between library

diff --git a/src/prolog/lib/between.pl b/src/prolog/lib/between.pl
index c6e203f0c5f0c30a131415fb18628eec10d7a042..e7167ca762d378cbe4b8cbbb5a2ecf41b5d77929 100644 (file)
--- a/src/prolog/lib/between.pl
+++ b/src/prolog/lib/between.pl
@@ -82,11 +82,12 @@ diag_ints(M, N) :-
     diag_ints(M0, N0, M, N).
 
 gen_ints(L, U) :-
-    integer(L), !, gen_int(U), L =< U.
-gen_ints(L, U) :-
-    integer(U), !, gen_int(L), L =< U.
-gen_ints(L, U) :-
-    diag_ints(L, U), L =< U.
+    (  integer(L), integer(U), !
+    ;  integer(L) -> gen_int(U)
+    ;  integer(U) -> gen_int(L)
+    ;  diag_ints(L, U)
+    ),
+    L =< U.
 
 numlist(Lower, Upper, List) :-
     gen_ints(Lower, Upper), findall(X, between(Lower, Upper, X), List).