~ chicken-core (chicken-5) 123f90677bc4deed5f7b9ca3dc18a7e19220073d

commit 123f90677bc4deed5f7b9ca3dc18a7e19220073d
Author:     unknown <felix@.(none)>
AuthorDate: Tue Oct 20 11:51:45 2009 +0200
Commit:     Felix <bunny351@gmail.com>
CommitDate: Sun Nov 8 01:20:47 2009 +0100

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