brmlab/brmelect
9
0
Fork 0
forked from brmlab/brmelect-github
Code Pull requests Activity

qwerty

Browse source
This commit is contained in:
TMA 2026-03-15 02:18:04 +01:00
parent 0cf929a875
commit b9ce3d504f
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/brmelect.scm
View file

@ -43,7 +43,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; helpers ;; helpers
(define (param parameters key) (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) (define (int-param parameters key)
(string->number (param parameters key))) (string->number (param parameters key)))