~ chicken-core (chicken-5) d866ac1962d9d73e652c8efaa54685238c3ec780

commit d866ac1962d9d73e652c8efaa54685238c3ec780
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Aug 12 17:47:58 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Aug 12 17:55:47 2016 +1200

    Preserve spawnvp[e] return value in process-spawn

diff --git a/posixwin.scm b/posixwin.scm
index 194889e1..cfca11ca 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1166,7 +1166,8 @@ EOF
 		    (##core#inline "C_u_i_spawnvpe" mode prg argbuf envbuf)
 		    (##core#inline "C_u_i_spawnvp" mode prg argbuf))))
 	 (when (fx= r -1)
-	   (posix-error #:process-error 'process-spawn "cannot spawn process" filename)))))))
+	   (posix-error #:process-error 'process-spawn "cannot spawn process" filename))
+	 r)))))
 
 (define-foreign-variable _shlcmd c-string "C_shlcmd")