Fix a scan-build warning
diff --git a/src/program.c b/src/program.c
index f9ed071..f877cd1 100644
--- a/src/program.c
+++ b/src/program.c
@@ -756,7 +756,8 @@
     status = bc_num_ulong2num(&result.data.num, f(num1));
   }
 
-  if ((status = bc_program_unaryOpRetire(p, &result, BC_RESULT_TEMP))) goto err;
+  if (status || (status = bc_program_unaryOpRetire(p, &result, BC_RESULT_TEMP)))
+    goto err;
 
 err:
   if (status) bc_num_free(&result.data.num);