Author: koutou
Date: Sun Mar 22 00:37:33 2009
New Revision: 5919
Modified:
trunk/test/uim-test-utils-new.scm
Log:
* test/uim-test-utils-new.scm: use list for command
arguments because the current style is deprecated.
Modified: trunk/test/uim-test-utils-new.scm
==============================================================================
--- trunk/test/uim-test-utils-new.scm (original)
+++ trunk/test/uim-test-utils-new.scm Sun Mar 22 00:37:33 2009
@@ -144,8 +144,8 @@
#t)))
(define (uim-sh-setup)
- (set! *uim-sh-process* (run-process (uim-test-build-path "uim" "uim-sh")
- "-b"
+ (set! *uim-sh-process* (run-process
`(,(uim-test-build-path "uim" "uim-sh")
+ "-b")
:input :pipe
:output :pipe))
(uim '(%%set-current-error-port! (current-output-port))))
