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

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")))))