~ chicken-core (chicken-5) 81dcc1cfe055eb150c6643447c3ed0f12c118836

commit 81dcc1cfe055eb150c6643447c3ed0f12c118836
Author:     unknown <felix@.(none)>
AuthorDate: Tue Oct 20 11:51:45 2009 +0200
Commit:     unknown <felix@.(none)>
CommitDate: Tue Oct 20 11:51:45 2009 +0200

    process-execute on windows didn't handle case of missing arglist argument

diff --git a/posixwin.scm b/posixwin.scm
index 3a91daeb..40fed902 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1858,7 +1858,7 @@ EOF
       (##sys#check-string filename loc)
       (let ([s (pathname-strip-directory filename)])
 	(setarg 0 s (##sys#size s)) )
-      (build-exec-argvec loc ($quote-args-list arglst exactf) setarg 1)
+      (build-exec-argvec loc (and arglst ($quote-args-list arglst exactf)) setarg 1)
       (build-exec-argvec loc envlst setenv 0)
       (##core#inline "C_flushall")
       (##sys#make-c-string (##sys#expand-home-path filename)) ) ) )