X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=burrow.scm;h=60f9b98c15ed2f10f36b8414b3195387475f5064;hp=700eb56d2e8d3ae9f91d8b7b648662dfbba18cae;hb=d9f5e254e29f70620c3e6744284ed7fcd4079cb7;hpb=2a8ee3c005ad7d400e81e5652e0a033843166177

diff --git a/burrow.scm b/burrow.scm
index 700eb56..60f9b98 100644
--- a/burrow.scm
+++ b/burrow.scm
@@ -178,7 +178,7 @@
      (print type display-string "\t" selector "\t" host "\t" port "\r"))
     ((type display-string selector host)
      (serve-record (list type display-string selector host 70)
-                   dir-selectorconfig))
+                   dir-selector config))
     ((type display-string selector)
      (serve-record (list type display-string
                          (make-pathname dir-selector selector)
@@ -199,7 +199,7 @@
      (let-values (((in-port out-port id) (process command)))
        (serve-info-records (string-chomp (read-string #f in-port) "\n"))))))
 
-(define (serve-expression expression path config)
+(define (serve-expression expression dir-selector config)
   (with-selector-dir
    dir-selector config
    (lambda ()
@@ -256,9 +256,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)