~ chicken-core (master) 1b42397f70a1ab5b8eb2701789b3d2f144c06454

commit 1b42397f70a1ab5b8eb2701789b3d2f144c06454
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Aug 28 15:55:44 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Aug 28 15:55:44 2026 +0200

    simplify

diff --git a/posixwin.scm b/posixwin.scm
index 220b4ecc..27917f3a 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -795,15 +795,14 @@ static int set_file_mtime(C_word filename, C_word atime, C_word mtime)
   (list "/c" cmdlin) )
 
 (set! chicken.process#process-run
-  (lambda (f . args)
-    (let ((args (if (pair? args) (car args) #f)))
+  (lambda (f #!optional args)
       (if args
           (chicken.process#process-spawn
            chicken.process#spawn/nowait f args)
           (chicken.process#process-spawn
            chicken.process#spawn/nowait
            (shell-command 'process-run)
-           (shell-command-arguments f)) ) ) ) )
+           (shell-command-arguments f)) ) ) )
 
 ;;; Run subprocess connected with pipes:
 (define-foreign-variable _rdbuf char "C_rdbuf")