From 6804ad471234695e48d0d03a504eb7a3f46b812e Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 28 Jan 2003 21:29:23 +0000
Subject: [PATCH] * Redirect output from interactive Scheme Program to OPORT
 (to browser). * Add definition for GET-HEADER (does every package need its
 own definition?)

---
 scheme/httpd/seval.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/seval.scm b/scheme/httpd/seval.scm
index a3ae9b0..a43d551 100644
--- a/scheme/httpd/seval.scm
+++ b/scheme/httpd/seval.scm
@@ -68,7 +68,8 @@
 			(with-tag oport PRE ()
 			  (newline oport)
 			  (force-output oport); In case we're gunned down.
-			  (eval-safely sexp)))
+			  (with-current-output-port oport
+			      (eval-safely sexp))))
 	       
 	       ;; Pretty-print the returned value(s).
 	       (emit-header oport 2 "Return value(s)")
@@ -102,3 +103,8 @@
 		     "Seval sexp: ~s" s)
 	(read (make-string-input-port s)))))
    (else (error "No `Content-length:' field in POST request."))))
+
+(define (get-header headers tag)
+  (cond
+   ((assq tag headers) => cdr)
+   (else #f)))
\ No newline at end of file