diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-22 11:19:19 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-22 21:08:41 +0100 |
| commit | 093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee (patch) | |
| tree | d164e37c20e562588700d86379cfda1b0ca3c596 /module/calp/html/components.scm | |
| parent | Datetime restrict imports. (diff) | |
| download | calp-093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee.tar.gz calp-093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee.tar.xz | |
Prepare code for translation.
Diffstat (limited to 'module/calp/html/components.scm')
| -rw-r--r-- | module/calp/html/components.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/calp/html/components.scm b/module/calp/html/components.scm index 2f8c85ec..0d6fbf1c 100644 --- a/module/calp/html/components.scm +++ b/module/calp/html/components.scm @@ -2,6 +2,7 @@ :use-module (hnh util) :use-module (ice-9 curried-definitions) :use-module (ice-9 match) + :use-module (calp translation) :export (xhtml-doc) ) @@ -57,7 +58,7 @@ allow-other-keys: rest: args) (when (and onclick href) - (error "Only give one of onclick, href and submit.")) + (error (_ "Only give one of onclick, href and submit."))) (let ((body #f)) `(,(cond [href 'a] |