diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/messaging.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 595f9622946..1fbb1f1d857 100644 --- a/gnu/services/messaging.scm +++ b/gnu/services/messaging.scm | |||
| @@ -2300,8 +2300,10 @@ multiple machines simultaneously."))) | |||
| 2300 | ;;; | 2300 | ;;; |
| 2301 | ;;; Mollysocket. | 2301 | ;;; Mollysocket. |
| 2302 | ;;; | 2302 | ;;; |
| 2303 | (define (ms-format label str) | 2303 | (define (ms-format label rhs) |
| 2304 | (format #f "~a = ~a~%" label (string-map (match-lambda (#\- #\_) (x x)) str))) | 2304 | (let* ((uglify (match-lambda (#\- #\_) (x x))) |
| 2305 | (lhs (string-map uglify (symbol->string label)))) | ||
| 2306 | (format #f "~a = ~a~%" lhs rhs))) | ||
| 2305 | (define (ms-serialize-string label val) | 2307 | (define (ms-serialize-string label val) |
| 2306 | (ms-format label (string-append "'" val "'"))) | 2308 | (ms-format label (string-append "'" val "'"))) |
| 2307 | (define (ms-serialize-integer label val) | 2309 | (define (ms-serialize-integer label val) |