(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/misc/process#check-process-success
    (lambda (_exit-status181371_ _settings181372_)
      (if (zero? _exit-status181371_)
          '#!void
          (error '"Process exited with non-zero status"
                 _exit-status181371_
                 _settings181372_))))
  (define std/misc/process#run-process__%
    (lambda (_g181373_
             _coprocess181296181307_
             _check-status181297181309_
             _environment181298181311_
             _directory181299181313_
             _stdin-redirection181300181315_
             _stdout-redirection181301181317_
             _stderr-redirection181302181319_
             _pseudo-terminal181303181321_
             _show-console181304181323_
             _command181325_)
      (let* ((_coprocess181327_
              (if (eq? _coprocess181296181307_ absent-value)
                  std/misc/ports#read-all-as-string
                  _coprocess181296181307_))
             (_check-status181329_
              (if (eq? _check-status181297181309_ absent-value)
                  '#t
                  _check-status181297181309_))
             (_environment181331_
              (if (eq? _environment181298181311_ absent-value)
                  '#f
                  _environment181298181311_))
             (_directory181333_
              (if (eq? _directory181299181313_ absent-value)
                  '#f
                  _directory181299181313_))
             (_stdin-redirection181335_
              (if (eq? _stdin-redirection181300181315_ absent-value)
                  '#t
                  _stdin-redirection181300181315_))
             (_stdout-redirection181337_
              (if (eq? _stdout-redirection181301181317_ absent-value)
                  '#t
                  _stdout-redirection181301181317_))
             (_stderr-redirection181339_
              (if (eq? _stderr-redirection181302181319_ absent-value)
                  '#f
                  _stderr-redirection181302181319_))
             (_pseudo-terminal181341_
              (if (eq? _pseudo-terminal181303181321_ absent-value)
                  '#f
                  _pseudo-terminal181303181321_))
             (_show-console181343_
              (if (eq? _show-console181304181323_ absent-value)
                  '#f
                  _show-console181304181323_))
             (_settings181345_
              (cons 'path:
                    (cons (car _command181325_)
                          (cons 'arguments:
                                (cons (cdr _command181325_)
                                      (cons 'environment:
                                            (cons _environment181331_
                                                  (cons 'directory:
                                                        (cons _directory181333_
                                                              (cons 'stdin-redirection:
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (cons _stdin-redirection181335_
                                  (cons 'stdout-redirection:
                                        (cons _stdout-redirection181337_
                                              (cons 'stderr-redirection:
                                                    (cons _stderr-redirection181339_
                                                          (cons 'pseudo-terminal:
                                                                (cons _pseudo-terminal181341_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cons 'show-console:
                                    (cons _show-console181343_
                                          '())))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
             (_process181347_ (open-process _settings181345_)))
        (with-unwind-protect
         (lambda ()
           (let* ((_result181351_ (_coprocess181327_ _process181347_))
                  (_status181353_ (process-status _process181347_)))
             (if _check-status181329_
                 ((if (procedure? _check-status181329_)
                      _check-status181329_
                      std/misc/process#check-process-success)
                  _status181353_
                  _settings181345_)
                 '#!void)
             _result181351_))
         (lambda ()
           (close-port _process181347_)
           (process-status _process181347_))))))
  (define std/misc/process#run-process__@
    (lambda (_keys181295181360_ . _args181362_)
      (apply std/misc/process#run-process__%
             _keys181295181360_
             (table-ref _keys181295181360_ 'coprocess: absent-value)
             (table-ref _keys181295181360_ 'check-status: absent-value)
             (table-ref _keys181295181360_ 'environment: absent-value)
             (table-ref _keys181295181360_ 'directory: absent-value)
             (table-ref _keys181295181360_ 'stdin-redirection: absent-value)
             (table-ref _keys181295181360_ 'stdout-redirection: absent-value)
             (table-ref _keys181295181360_ 'stderr-redirection: absent-value)
             (table-ref _keys181295181360_ 'pseudo-terminal: absent-value)
             (table-ref _keys181295181360_ 'show-console: absent-value)
             _args181362_)))
  (define std/misc/process#run-process
    (lambda _args181305181368_
      (apply keyword-dispatch
             '#(stdout-redirection:
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                stdin-redirection:
                #f
                #f
                #f
                #f
                #f
                stderr-redirection:
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                #f
                directory:
                environment:
                pseudo-terminal:
                #f
                #f
                #f
                #f
                #f
                show-console:
                #f
                #f
                #f
                #f
                #f
                #f
                coprocess:
                #f
                #f
                #f
                #f
                #f
                check-status:
                #f
                #f)
             std/misc/process#run-process__@
             _args181305181368_)))
  (define std/misc/process#run-process/batch
    (lambda (_command181292_)
      (std/misc/process#run-process__%
       '#f
       close-output-port
       absent-value
       absent-value
       absent-value
       absent-value
       '#f
       absent-value
       absent-value
       absent-value
       _command181292_)
      '#!void)))
