~ chicken-core (chicken-5) 37dbffcd9de492dc639258f3048bac3b4dbaf35b

commit 37dbffcd9de492dc639258f3048bac3b4dbaf35b
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Sep 1 20:32:03 2018 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Sep 2 13:38:35 2018 +0200

    Fix type declaration for "qs" procedure
    
    The optional "platform" argument was missing.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/types.db b/types.db
index c92fcafd..53673000 100644
--- a/types.db
+++ b/types.db
@@ -2058,7 +2058,7 @@
 (chicken.process#process-execute
  (#(procedure #:clean #:enforce) chicken.process#process-execute (string #!optional (list-of string) (list-of (pair string string)) fixnum) noreturn))
 (chicken.process#process-fork (#(procedure #:enforce) chicken.process#process-fork (#!optional (or (procedure () . *) false) *) fixnum))
-(chicken.process#qs (#(procedure #:clean #:enforce) chicken.process#qs (string) string))
+(chicken.process#qs (#(procedure #:clean #:enforce) chicken.process#qs (string #!optional symbol) string))
 (chicken.process#process-run (#(procedure #:clean #:enforce) chicken.process#process-run (string #!optional (list-of string)) fixnum))
 (chicken.process#process-signal (#(procedure #:clean #:enforce) chicken.process#process-signal (fixnum #!optional fixnum) undefined))
 (chicken.process#process-spawn