2 exec guile
-q -s "$0" "$@"
5 (define
(test-system-cmd
)
6 (if (not
(boolean?
(system
)))
10 "test-system-cmds: (system) did not return a boolean\n")
13 (let ((rs
(status
:exit-val
(system
"guile -c '(exit 42)'"))))
18 "test-system-cmds: system exit status was ~S rather than 42\n"
22 (define
(test-system
*-cmd)
23 (let ((rs
(status
:exit-val
(system
* "guile" "-c" "(exit 42)"))))
28 "test-system-cmds: system* exit status was ~S rather than 42\n"
32 (if (defined?
'system)
35 (if (defined? 'system
*)