[nongnu] elpa/geiser-racket 216067a 104/191: Racket: new option to specify network interface for REPL server

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 216067a564460f77470954e37938547a45107235
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: new option to specify network interface for REPL server
    
    In geiser-racket.sh, there's the new option -n, which uses a new
    hostname argument accepted by geiser/user's start-geiser function.
---
 geiser/user.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/geiser/user.rkt b/geiser/user.rkt
index e9540b0..f383a46 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -110,18 +110,18 @@
 
 (define server-channel (make-channel))
 
-(define (run-geiser-server port enforce-module-constants)
+(define (run-geiser-server port enforce-module-constants (hostname #f))
   (run-server port
               (lambda (in out)
                 (run-geiser-repl in out enforce-module-constants))
               #f
               void
               (lambda (p _ __)
-                (let ([lsner (tcp-listen p)])
+                (let ([lsner (tcp-listen p 4 #f hostname)])
                   (let-values ([(_ p __ ___) (tcp-addresses lsner #t)])
                     (channel-put server-channel p)
                     lsner)))))
 
-(define (start-geiser (port 0) (enforce-module-constants #f))
-  (thread (lambda () (run-geiser-server port enforce-module-constants)))
+(define (start-geiser (port 0) (hostname #f) (enforce-module-constants #f))
+  (thread (lambda () (run-geiser-server port enforce-module-constants 
hostname)))
   (channel-get server-channel))