From 013c7bd5b3c1c7f5d12d65a8cc11c791a6c2431c Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 27 Aug 2002 09:45:05 +0000 Subject: [PATCH] Adjust use of TILDE-HOME-DIR-HANDLER. --- scheme/httpd/server.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scheme/httpd/server.scm b/scheme/httpd/server.scm index 937d508..c0291f1 100755 --- a/scheme/httpd/server.scm +++ b/scheme/httpd/server.scm @@ -28,10 +28,8 @@ exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@" `(("h" . ,(home-dir-handler "public_html")) ("seval" . ,seval-handler) ("cgi-bin" . ,(cgi-handler "/usr/local/etc/httpd/cgi-bin"))) - (make-path-handler - tilde-home-dir-handler-predicate - (tilde-home-dir-handler "public_html") - (rooted-file-handler "/usr/local/etc/httpd/htdocs")))) + (tilde-home-dir-handler "public_html" + (rooted-file-handler "/usr/local/etc/httpd/htdocs"))))