From efb37b954e94da481beb72cbc2e0491f54231a98 Mon Sep 17 00:00:00 2001
From: Michael Gran <spk121@yahoo.com>
Date: Mon, 23 Nov 2020 19:22:13 -0800
Subject: [PATCH] skip compile test when pause not available

* test-suite/standalone/test-guild-compile: abort if pause
    does not exist
---
 test-suite/standalone/test-guild-compile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/standalone/test-guild-compile b/test-suite/standalone/test-guild-compile
index 5972d5474..edc623570 100755
--- a/test-suite/standalone/test-guild-compile
+++ b/test-suite/standalone/test-guild-compile
@@ -10,8 +10,8 @@ trap 'rm -f "$source" "$target"' EXIT
 
 cat > "$source"<<EOF
 (eval-when (expand load eval)
-  ;; Wait for SIGINT.
-  (pause)
+  ;; Wait for SIGINT, if the pause function exists.
+  (if (defined? 'pause) (pause) (exit 77))
 
   ;; Then sleep so that the SIGINT handler gets to run
   ;; and compilation doesn't complete before it runs.