72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
+
-
-
-
+
+
+
-
|
(let ((errstr (process:conservative-read fhe)))
(if (not (string=? errstr ""))
(set! result (append result (list errstr)))))
(if (not (eof-object? curr))
(loop (read-line fh)
(append result (list curr)))
(begin
(let-values (((anotherpid normalexit? exitstatus) (process-wait pid)))
;(close-input-port fh)
;(close-input-port fhe)
;(close-output-port fho)
(close-input-port fh)
(close-input-port fhe)
(close-output-port fho)
(let-values (((anotherpid normalexit? exitstatus) (process-wait pid)))
|