From 9602104a8ca9032e3acbfb5080800b1df77ff089 Mon Sep 17 00:00:00 2001 From: interp Date: Fri, 30 Aug 2002 12:04:27 +0000 Subject: [PATCH] output directly to socket:outport in emit-man-page --- scheme/httpd/rman-gateway.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/scheme/httpd/rman-gateway.scm b/scheme/httpd/rman-gateway.scm index b265f20..7681193 100644 --- a/scheme/httpd/rman-gateway.scm +++ b/scheme/httpd/rman-gateway.scm @@ -85,18 +85,18 @@ (define (emit-man-page entry man man-path and-then reference-template out) (receive (key section) (parse-man-entry entry) (let ((status - (with-current-output-port - out - (cond - ((procedure? and-then) - (run (| (begin (man section key man-path)) - (begin (and-then key section))) - stdports)) + (cond + ((procedure? and-then) + (run (| (begin (man section key man-path)) + (begin (and-then key section))) + (= 1 ,out) + (= 2 ,out))) (else (run (| (begin (man section key man-path)) (,@rman/rman ,@and-then -r ,(reference-template entry section))) - stdports)))))) + (= 1 ,out) + (= 2 ,out)))))) (if (not (zero? status)) (error "internal error emitting man page")))))