scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

output directly to socket:outport in emit-man-page

This commit is contained in:
interp 2002-08-30 12:04:27 +00:00
parent f94396a54e
commit 9602104a8c
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/httpd/rman-gateway.scm
View File

@ -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 (cond
out ((procedure? and-then)
(cond (run (| (begin (man section key man-path))
((procedure? and-then) (begin (and-then key section)))
(run (| (begin (man section key man-path)) (= 1 ,out)
(begin (and-then key section))) (= 2 ,out)))
stdports))
(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")))))