From 22ae76cfcef2bf306f728dbc35b6eabc52065b82 Mon Sep 17 00:00:00 2001 From: Lilah Tascheter Date: Sun, 23 Nov 2025 21:34:07 -0600 Subject: [PATCH] services: mollysocket: Fix mollysocket configuration. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/messaging.scm (ms-format): Run string-map on label, not str/rhs. Change-Id: I07b6b90e4156b525aad1490a4165a3359bda8b3e Signed-off-by: Ludovic Courtès Merges: #4435 --- gnu/services/messaging.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 595f962294..1fbb1f1d85 100644 --- a/gnu/services/messaging.scm +++ b/gnu/services/messaging.scm @@ -2300,8 +2300,10 @@ multiple machines simultaneously."))) ;;; ;;; Mollysocket. ;;; -(define (ms-format label str) - (format #f "~a = ~a~%" label (string-map (match-lambda (#\- #\_) (x x)) str))) +(define (ms-format label rhs) + (let* ((uglify (match-lambda (#\- #\_) (x x))) + (lhs (string-map uglify (symbol->string label)))) + (format #f "~a = ~a~%" lhs rhs))) (define (ms-serialize-string label val) (ms-format label (string-append "'" val "'"))) (define (ms-serialize-integer label val)