diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/calp/translation.scm | |
parent | Remove procedure tabset. (diff) | |
download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz |
Normalize keyword syntax.
Diffstat (limited to '')
-rw-r--r-- | module/calp/translation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/calp/translation.scm b/module/calp/translation.scm index 77c947da..67189e7a 100644 --- a/module/calp/translation.scm +++ b/module/calp/translation.scm @@ -2,6 +2,7 @@ :use-module (ice-9 i18n) :use-module (ice-9 regex) :use-module (ice-9 match) + :use-module (srfi srfi-88) :export (_ translate yes-no-check)) (bindtextdomain "calp" "/home/hugo/code/calp/localization/") @@ -20,7 +21,7 @@ (define (_ . msg) (translate (string-join msg))) -(define* (yes-no-check string #:optional (locale %global-locale)) +(define* (yes-no-check string optional: (locale %global-locale)) (cond ((string-match (locale-yes-regexp locale) string) 'yes) ((string-match (locale-no-regexp locale) string) 'no) (else #f))) |