% Adapted from Logtalk iso_current_predicate_1_06. Modified for EyeProlog's harness.
% See test/conformance/THIRD_PARTY.md.
%% ?- current_predicate(4).