% Adapted from Logtalk iso_current_predicate_1_06. Modified for Eyepl's harness.
% See test/conformance/THIRD_PARTY.md.
%% goal: current_predicate(4)