address issue #153

2019-09-05 22:43:50 -06:00
parent 4b22f80a77
commit 9d2ac9e235
7 changed files with 56 additions and 82 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -675,9 +675,6 @@ current_predicate(Pred) :-
    -> throw(error(type_error(predicate_indicator, Pred), current_predicate/1))
    ;  '$get_next_db_ref'(Ref, _),
       '$iterate_db_refs'(Ref, Pred)
-    ;  Pred = call/N,
-       max_arity(Max),
-       between:between(0, Max, N)
    ).

 '$iterate_op_db_refs'(Ref, Priority, Spec, Op) :-