Added url support.
authorTim Vaughan <tgvaughan@gmail.com>
Fri, 3 May 2019 22:28:07 +0000 (00:28 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Fri, 3 May 2019 22:28:07 +0000 (00:28 +0200)
burrow.scm

index 557dfa0..09b8df3 100644 (file)
   (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)