skip compile test when pause not available

* test-suite/standalone/test-guild-compile: abort if pause
    does not exist

diff --git a/test-suite/standalone/test-guild-compile b/test-suite/standalone/test-guild-compile
index 5972d547435c008a2b9ca8b6c28dcdb6725917df..edc623570a42d67c11a42be2846f89b6471a4519 100755 (executable)
--- 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.