mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

skip compile test when pause not available

Browse source 
* test-suite/standalone/test-guild-compile: abort if pause
    does not exist
This commit is contained in:
Michael Gran 2020-11-23 19:22:13 -08:00
parent 50da05835a
commit efb37b954e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/standalone/test-guild-compile
View file

@ -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.