From b9ce3d504f3e18ba336c8e7d0dc9cd00f8a8043b Mon Sep 17 00:00:00 2001 From: TMA Date: Sun, 15 Mar 2026 02:18:04 +0100 Subject: [PATCH] qwerty --- src/brmelect.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/brmelect.scm b/src/brmelect.scm index c0e3a4a..4b9cb6f 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -43,7 +43,10 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; helpers (define (param parameters key) - (hash-table-ref/default parameters key "")) + (let ((val (hash-table-ref/default parameters key ""))) + (cond + ((string? val) val) + (else (message-body val))))) (define (int-param parameters key) (string->number (param parameters key)))