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 (parent:
99049ad
)
Enabled IPv6 support.
author
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 8 Jul 2019 15:36:25 +0000
(17:36 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Mon, 8 Jul 2019 16:14:15 +0000
(18:14 +0200)
scratchy.scm
patch
|
blob
|
history
diff --git
a/scratchy.scm
b/scratchy.scm
index
bdbdee4
..
6914fb6
100644
(file)
--- a/
scratchy.scm
+++ b/
scratchy.scm
@@
-5,7
+5,7
@@
;;; Imports
;;; Imports
-(import
(chicken tcp)
+(import
tcp6
(chicken port)
(chicken io)
(chicken string)
(chicken port)
(chicken io)
(chicken string)
@@
-20,7
+20,7
@@
;;; Global constants
;;; Global constants
-(define scratchy-version "1.
0.1
")
+(define scratchy-version "1.
2.0
")
(define scratchy-footer
(conc "\n"
(define scratchy-footer
(conc "\n"
@@
-42,7
+42,7
@@
(define (run-server config)
(set-buffering-mode! (current-output-port) #:line)
(define (run-server config)
(set-buffering-mode! (current-output-port) #:line)
- (let ((listener (tcp-listen (config-port config))))
+ (let ((listener (tcp-listen (config-port config)
10 "::"
)))
(print "Gopher server listening on port " (config-port config) " ...")
(drop-privs config)
(server-loop listener config))
(print "Gopher server listening on port " (config-port config) " ...")
(drop-privs config)
(server-loop listener config))