aboutsummaryrefslogtreecommitdiff
path: root/module/calp/repl.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/calp/repl.scm')
-rw-r--r--module/calp/repl.scm11
1 files changed, 6 insertions, 5 deletions
diff --git a/module/calp/repl.scm b/module/calp/repl.scm
index 47c35a40..6f2c7c0a 100644
--- a/module/calp/repl.scm
+++ b/module/calp/repl.scm
@@ -7,12 +7,13 @@
:use-module (ice-9 regex)
:use-module ((calp util hooks) :select (shutdown-hook))
:use-module ((hnh util exceptions) :select (warning))
+ :use-module (calp translation)
)
(define-public (repl-start address)
(define lst (string->list address))
(format (current-error-port)
- "Starting REPL server at ~a~%" address)
+ (_ "Starting REPL server at ~a~%") address)
(spawn-server
(case (cond [(memv (car lst) '(#\. #\/)) 'UNIX]
[(string-match "(\\d{1,3}\\.){3}\\d{1,3}(:\\d+)?" address) 'IPv4]
@@ -22,17 +23,17 @@
[(UNIX)
(add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address))
(lambda (err proc fmt args data)
- (warning (format #f "Failed to unlink ~a: ~?"
- address fmt args))
+ (warning (string-append (format #f (_ "Failed to unlink ~a") address)
+ (format #f ": ~?" fmt args)))
err))))
(make-unix-domain-server-socket path: address)]
[(IPv4) (apply (case-lambda
- [() (error "Empty address?")]
+ [() (error (_ "Empty address?"))]
[(address) (make-tcp-server-socket host: address)]
[(address port) (make-tcp-server-socket host: address port: port)])
(string-split address #\:))]
;; currently impossible
- [(IPv6) (error "How did you get here?")]))
+ [(IPv6) (error (_ "How did you get here?"))]))
;; TODO setup repl environment here