The Lambda Lab
/
projects
/
scratchy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4bb7153
)
Improved conformance for web links.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 5 May 2019 21:47:48 +0000
(23:47 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 5 May 2019 21:47:48 +0000
(23:47 +0200)
burrower.scm
patch
|
blob
|
history
diff --git
a/burrower.scm
b/burrower.scm
index
69fafbc
..
a042e58
100644
(file)
--- 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!"))
"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,
;;; 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)
(('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)
((type display-string selector host port)
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)