From e232a334082d59cccb129d742ac36e00c6ee60a9 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Tue, 28 May 2019 00:38:52 +0200 Subject: [PATCH] Still working on best way to serve active selectors. --- burrower.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/burrower.scm b/burrower.scm index 36820ea..b7b2754 100644 --- a/burrower.scm +++ b/burrower.scm @@ -132,11 +132,13 @@ (define (serve-directory-script selector arguments config) (let ((filename (make-pathname (config-root-dir config) selector))) (if (legal-script-filename? filename config) - (let ((sexp (with-input-from-file filename read))) - (serve-records (with-selector-dir selector config - (lambda () - (apply (eval sexp) arguments))) - selector config) + (let* ((sexp (with-input-from-file filename read)) + (selector-dir (pathname-directory selector))) + (serve-records (with-selector-dir + selector config + (lambda () + (apply (eval sexp) arguments))) + selector-dir config) (print ".\r")) (error "No legal index script not found." filename)))) @@ -325,9 +327,9 @@ (config-port-set! config (string->number (caddr args)))) (run-server config))))))) -(main) +;; (main) -;; (define (test) -;; (run-server (make-config "gopher-root" "localhost" 70 #t))) +(define (test) + (run-server (make-config "gopher-root" "localhost" 70 #t))) -;; (test) +(test) -- 2.20.1