reorder tests, per https://github.com/mthom/scryer-prolog/pull/1961#pullrequestreview-1574380588

2023-08-11 23:41:54 +02:00
parent 26c0b4fc75
commit 4a6bf5fd5f
1 changed files with 3 additions and 3 deletions
--- a/src/lib/iso_ext.pl
+++ b/src/lib/iso_ext.pl
@@ -121,11 +121,11 @@ bb_get(Key, Value) :-
 succ(I, S) :-
    can_be(not_less_than_zero, I),
    can_be(not_less_than_zero, S),
-    (   integer(I) ->
-        S is I+1
-    ;   integer(S) ->
+    (   integer(S) ->
        S > 0,
        I is S-1
+    ;   integer(I) ->
+        S is I+1
    ;   instantiation_error(succ/2)
    ).