summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/tissue9
1 files changed, 6 insertions, 3 deletions
diff --git a/bin/tissue b/bin/tissue
index e1707a8..8484363 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -225,7 +225,10 @@ Run a web search service reading configuration from CONFIG-FILE.
(list (option '("listen-repl")
#t #f
(lambda (opt name arg result)
- (acons 'listen-repl arg result))))
+ (acons 'listen-repl
+ (or (string->number arg)
+ arg)
+ result))))
invalid-option
(lambda (config-file result)
(append (call-with-input-file config-file
@@ -243,9 +246,9 @@ Run a web search service reading configuration from CONFIG-FILE.
(make-unix-domain-server-socket #:path listen-repl))
(else
(format (current-error-port)
- "REPL server listening on ~a~%"
+ "REPL server listening on port ~a~%"
listen-repl)
- (make-unix-domain-server-socket #:path listen-repl))))))
+ (make-tcp-server-socket #:port listen-repl))))))
(start-web-server (listen->socket-address (assq-ref args 'listen))
(map (match-lambda
((name parameters ...)