From: Tim Vaughan <tgvaughan@gmail.com>
Date: Mon, 8 Jul 2019 15:36:25 +0000 (+0200)
Subject: Enabled IPv6 support.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=commitdiff_plain;h=3c2370f9bd510b66e06ebbed8f6334d6dbae2e07

Enabled IPv6 support.
---

diff --git a/scratchy.scm b/scratchy.scm
index bdbdee4..6914fb6 100644
--- a/scratchy.scm
+++ b/scratchy.scm
@@ -5,7 +5,7 @@
 
 ;;; Imports
 
-(import (chicken tcp)
+(import tcp6
         (chicken port)
         (chicken io)
         (chicken string)
@@ -20,7 +20,7 @@
 
 ;;; Global constants
 
-(define scratchy-version "1.0.1")
+(define scratchy-version "1.2.0")
 
 (define scratchy-footer
   (conc "\n"
@@ -42,7 +42,7 @@
 
 (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))