[Guile-commits] 03/13: skip compile test when pause not available

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit efb37b954e94da481beb72cbc2e0491f54231a98
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Mon Nov 23 19:22:13 2020 -0800

    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 5972d54..edc6235 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.