(regular-file? filename)))
(define (serve-directory selector config)
- (let ((filename (make-pathname (list (config-root-dir config) selector
- gopher-index-filename))))
+ (let ((filename (make-pathname (list (config-root-dir config) selector)
+ gopher-index-filename)))
(if (legal-filename? filename config)
(begin
(with-input-from-file filename