From 8e4e541430a4ba575746c0dd3985ce03413f095c Mon Sep 17 00:00:00 2001
From: Pierre van de Laar <pierre.vandelaar@tno.nl>
Date: Tue, 13 Dec 2022 17:43:42 +0100
Subject: [PATCH] use short circuit operator

---
 source/spawn/spawn-processes-windows.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/spawn/spawn-processes-windows.adb b/source/spawn/spawn-processes-windows.adb
index 7d1eab1..9ec30d8 100644
--- a/source/spawn/spawn-processes-windows.adb
+++ b/source/spawn/spawn-processes-windows.adb
@@ -357,7 +357,8 @@ package body Spawn.Processes.Windows is
                begin
                   Attempts := Attempts - 1;
 
-                  if Error /= Windows_API.ERROR_PIPE_BUSY or Attempts = 0 then
+                  if Error /= Windows_API.ERROR_PIPE_BUSY or else Attempts = 0
+                  then
                      Self.Listener.Error_Occurred (Integer (Error));
 
                      Interfaces.C.Strings.Free (Pipe_Name);