#t
"test-system-cmds: (system) did not return a boolean\n")
(exit 1)))
-
- (let ((rs (status:exit-val (system "guile -c '(exit 42)'"))))
+
+ ;; Note: Use double quotes since simple quotes are not supported by
+ ;; `cmd.exe' on Windows.
+ (let ((rs (status:exit-val (system "guile -c \"(exit 42)\""))))
(if (not (= 42 rs))
(begin
(simple-format
;; Local Variables:
;; mode: scheme
-;; End:
\ No newline at end of file
+;; End: