diff options
| author | Michael Gran <spk121@yahoo.com> | 2020-11-23 19:22:13 -0800 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2021-01-21 15:32:06 -0800 |
| commit | efb37b954e94da481beb72cbc2e0491f54231a98 (patch) | |
| tree | 65c34b24ff6fa13f79c7f2d0974b837fa23f8449 | |
| parent | 50da05835a70daa36f74b23fe3a12d18d0cb6691 (diff) | |
| download | guile-efb37b954e94da481beb72cbc2e0491f54231a98.tar.gz | |
skip compile test when pause not available
* test-suite/standalone/test-guild-compile: abort if pause
does not exist
| -rwxr-xr-x | test-suite/standalone/test-guild-compile | 4 |
1 files 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. |