mike121 pushed a commit to branch master in repository guile. commit efb37b954e94da481beb72cbc2e0491f54231a98 Author: Michael Gran <spk...@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.