[Chicken-janitors] #1274: read-all receiving #<unspecified> unless preceded by a precidate

[Chicken Trac]

#1274: read-all receiving #<unspecified> unless preceded by a precidate
---------------------+--------------------
 Reporter:  sjamaan  |      Owner:
     Type:  defect   |     Status:  new
 Priority:  major    |  Milestone:  4.11.0
Component:  unknown  |    Version:  4.10.x
 Keywords:           |
---------------------+--------------------
 This happens in csi:

 {{{
 #!scm

 ;; This works:
 (require-extension utils)

 (define (command/string command)
   (define-values (proc-output proc-input proc-id) (process command))
   (port? proc-output)
   (define retval (read-all proc-output))
   (close-input-port proc-output)
   (close-output-port proc-input)
   retval)

 (print (command/string "ls"))
 }}}

 {{{
 #!scm

 ;; This breaks:

 (require-extension utils)

 (define (command/string command)
   (define-values (proc-output proc-input proc-id) (process command))
   (define retval (read-all proc-output))
   (close-input-port proc-output)
   (close-output-port proc-input)
   retval)

 (command/string "ls")

 ;; Gives us:
 ;; Error: (open-input-file) bad argument type - not a string:
 #<unspecified>
 }}}

--
Ticket URL: <http://bugs.call-cc.org/ticket/1274>
CHICKEN Scheme <http://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.