handle asserts in modules a little better (#223, #224)

2019-10-30 00:14:36 -06:00
parent b90d69a45b
commit d34811aa36
2 changed files with 40 additions and 75 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -561,8 +561,9 @@ assertz(Clause) :-
    ).

 first_match_index([Clause0 | Clauses], Clause1, N0, N) :-
-    (  Clause0 \= Clause1 -> N1 is N0 + 1,
-			     first_match_index(Clauses, Clause1, N1, N)
+    (  Clause0 \= Clause1 ->
+       N1 is N0 + 1,
+       first_match_index(Clauses, Clause1, N1, N)
    ;  N0 = N, Clause0 = Clause1
    ).