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

diff --git a/burrow.scm b/burrow.scm
index 700eb56..bb21e3a 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 ()
@@ -245,7 +245,6 @@
               (begin
                 (config-display-footer-set! config #f)
                 (set! args (cdr args))))
-          (print args)
           (if (or (< (length args) 2)
                   (> (length args) 3))
               (print-usage progname)
@@ -256,9 +255,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)