From 4e168d456f8ba1d7d3b94073a05814d431bc2808 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sun, 5 May 2019 23:47:48 +0200 Subject: [PATCH] Improved conformance for web links. --- burrower.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.20.1