From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 5 May 2019 21:47:48 +0000 (+0200)
Subject: Improved conformance for web links.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=4e168d456f8ba1d7d3b94073a05814d431bc2808;p=scratchy.git

Improved conformance for web links.
---

diff --git a/burrower.scm b/burrower.scm
index 69fafbc..a042e58 100644
--- a/burrower.scm
+++ b/burrower.scm
@@ -28,7 +28,6 @@
         "This gopher hole was dug using Burrower v" burrower-version "\n"
         "Powered by Chicken Scheme!"))
 
-
 ;;; Server loop
 
 ;; We don't yet use worker threads here to handle requests,
@@ -177,7 +176,9 @@
     (('shell command) (serve-shell-command command dir-selector config))
     (('eval expression) (serve-expression expression dir-selector config))
     (('url display-string url)
-     (print #\h display-string "\tURL:" url "\tfake\t80\r"))
+     (print #\h display-string "\tURL:" url
+            "\t" (config-host config)
+            "\t" (config-port config) "\r"))
     ((type display-string selector host port)
      (print type display-string "\t" selector "\t" host "\t" port "\r"))
     ((type display-string selector host)