Enabled IPv6 support.
authorTim Vaughan <tgvaughan@gmail.com>
Mon, 8 Jul 2019 15:36:25 +0000 (17:36 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Mon, 8 Jul 2019 16:14:15 +0000 (18:14 +0200)
scratchy.scm

index bdbdee4..6914fb6 100644 (file)
@@ -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))