output directly to socket:outport in emit-man-page
This commit is contained in:
parent
f94396a54e
commit
9602104a8c
|
@ -85,18 +85,18 @@
|
||||||
(define (emit-man-page entry man man-path and-then reference-template out)
|
(define (emit-man-page entry man man-path and-then reference-template out)
|
||||||
(receive (key section) (parse-man-entry entry)
|
(receive (key section) (parse-man-entry entry)
|
||||||
(let ((status
|
(let ((status
|
||||||
(with-current-output-port
|
|
||||||
out
|
|
||||||
(cond
|
(cond
|
||||||
((procedure? and-then)
|
((procedure? and-then)
|
||||||
(run (| (begin (man section key man-path))
|
(run (| (begin (man section key man-path))
|
||||||
(begin (and-then key section)))
|
(begin (and-then key section)))
|
||||||
stdports))
|
(= 1 ,out)
|
||||||
|
(= 2 ,out)))
|
||||||
(else
|
(else
|
||||||
(run (| (begin (man section key man-path))
|
(run (| (begin (man section key man-path))
|
||||||
(,@rman/rman ,@and-then
|
(,@rman/rman ,@and-then
|
||||||
-r ,(reference-template entry section)))
|
-r ,(reference-template entry section)))
|
||||||
stdports))))))
|
(= 1 ,out)
|
||||||
|
(= 2 ,out))))))
|
||||||
|
|
||||||
(if (not (zero? status))
|
(if (not (zero? status))
|
||||||
(error "internal error emitting man page")))))
|
(error "internal error emitting man page")))))
|
||||||
|
|
Loading…
Reference in New Issue