Move NULL-PATH-HANDLER from HTTPD-FILE-DIRECTORY-HANDLERS-INTERFACE to

HTTPD-BASIC-HANDLERS.

scheme/httpd/file-dir-handler.scm

@@ -79,12 +79,6 @@
 				    req)))
 
 
-;;; The null path handler -- handles nothing, sends back an error response.
-;;; Can be useful as the default in table-driven path handlers.
-
-(define (null-path-handler path req)
-  (make-http-error-response http-status/not-found req))
-
 ;;;; Support procs for the path handlers
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

scheme/httpd/handlers.scm

@@ -86,3 +86,9 @@
       default-handler))
    default-handler
    handler-alist))
+
+;;; The null path handler -- handles nothing, sends back an error response.
+;;; Can be useful as the default in table-driven path handlers.
+
+(define (null-path-handler path req)
+  (make-http-error-response http-status/not-found req))

scheme/packages.scm

@@ -370,14 +370,14 @@
 	  make-path-handler
 	  make-host-name-handler
 	  make-path-prefix-handler
-	  alist-path-dispatcher))
+	  alist-path-dispatcher
+	  null-path-handler))
 
 (define-interface httpd-file-directory-handlers-interface
   (export home-dir-handler
 	  tilde-home-dir-handler
 	  rooted-file-handler
-	  rooted-file-or-directory-handler
-	  null-path-handler))
+	  rooted-file-or-directory-handler))
 
 (define-interface seval-handler-interface
   (export seval-handler))
@@ -768,6 +768,7 @@
 	httpd-request			; REQUEST record type, v0.9-request
 	srfi-1				; FOLD-RIGHT
 	srfi-13				; STRING-TRIM
+	httpd-responses
 	)
   (files (httpd handlers)))