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*)