make setup of test_166_167 pass

diff --git a/tests-pl/iso-conformity-tests.pl b/tests-pl/iso-conformity-tests.pl
index 39626808315f430783223ba73bddffdf1559091e..31ddc4d39d11d39ad25a1f457c1308af6d1f8728 100644 (file)
--- a/tests-pl/iso-conformity-tests.pl
+++ b/tests-pl/iso-conformity-tests.pl
@@ -732,7 +732,10 @@ test_164 :- setup_call_cleanup((op(7,fy,p),op(9,yfx,p)),
 
 test_165 :- atom('.''-''.').
 
-test_166_167 :- setup_call_cleanup(current_op(P,xfy,'|'),
+test_166_167 :- setup_call_cleanup((  current_op(P,xfy,'|') ->
+                                      true
+                                   ;  P = 0
+                                   ),
                                    (  op(0,xfy,'|'),
                                       test_syntax_error("(a|b).", syntax_error(incomplete_reduction))),
                                    op(P,xfy,'|')).