~ chicken-core (chicken-5) 4514731d7dd7688d35ee4767c35b29c6ce4eff0e

commit 4514731d7dd7688d35ee4767c35b29c6ce4eff0e
Author:     unknown <felix@.(none)>
AuthorDate: Tue Oct 20 11:51:45 2009 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Nov 21 12:44:11 2009 +0100

    process-execute on windows didn't handle case of missing arglist argument
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

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