diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 543759c..9425e2e 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -626,17 +626,16 @@ ;;; OPTIONS: options for the surflet-handler (define-record-type options :options - (make-options surflet-path surflet-prefix cache-surflets? session-lifetime) + (make-options surflet-path cache-surflets? session-lifetime) options? (surflet-path options:surflet-path set-options:surflet-path) - (surflet-prefix options:surflet-prefix set-options:surflet-prefix) (cache-surflets? options:cache-surflets? set-options:cache-surflets?) ;; session lifetime is in seconds (session-lifetime options:session-lifetime set-options:session-lifetime)) ;; Constructor with defaults. -(define (make-default-options surflet-path surflet-prefix) - (make-options surflet-path surflet-prefix #t 600)) +(define (make-default-options surflet-path) + (make-options surflet-path #t 600)) ;; Selectors for *options* (preserved-thread-fluid) (define (make-fluid-selector selector) @@ -645,7 +644,6 @@ (lambda (value) (setter (thread-fluid *options*) value))) (define options-surflet-path (make-fluid-selector options:surflet-path)) -(define options-surflet-prefix (make-fluid-selector options:surflet-prefix)) (define options-cache-surflets? (make-fluid-selector options:cache-surflets?)) (define options-session-lifetime (make-fluid-selector options:session-lifetime)) (define set-options-cache-surflets? (make-fluid-setter set-options:cache-surflets?))