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