X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=burrow.scm;h=09b8df3fc1d602f2f2a6501d9c73da39d118e3fe;hp=31cb2edb09cbe2fa91529f235fa35d34984b7bfc;hb=bc05a238ffed02f915e8809914c1bbf0b6ed7670;hpb=2c37c7eb2d1116c358712faab1bb760bde5bcf72

diff --git a/burrow.scm b/burrow.scm
index 31cb2ed..09b8df3 100644
--- a/burrow.scm
+++ b/burrow.scm
@@ -145,6 +145,8 @@
   (match record
     (('shell command) (serve-shell-command command))
     (('eval expression) (serve-expression expression))
+    (('url display-string url)
+     (print #\h display-string "\tURL:" url "\tfake\t80\r"))
     ((type display-string selector host port)
      (print type display-string "\t" selector "\t" host "\t" port "\r"))
     ((type display-string selector host)
@@ -204,9 +206,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)