aboutsummaryrefslogtreecommitdiff
path: root/module/calp/entry-points/convert.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-04-08 00:40:50 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-04-11 19:02:33 +0200
commit3f1846959712e899d35de01bff251204484c0e59 (patch)
treee157d84bda0393940a0af102b5bf32f50e2980ca /module/calp/entry-points/convert.scm
parentMerge branch 'translation' (diff)
downloadcalp-3f1846959712e899d35de01bff251204484c0e59.tar.gz
calp-3f1846959712e899d35de01bff251204484c0e59.tar.xz
Fixup translatable strings.
Diffstat (limited to 'module/calp/entry-points/convert.scm')
-rw-r--r--module/calp/entry-points/convert.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/module/calp/entry-points/convert.scm b/module/calp/entry-points/convert.scm
index d416b004..b1321f55 100644
--- a/module/calp/entry-points/convert.scm
+++ b/module/calp/entry-points/convert.scm
@@ -69,7 +69,9 @@
(@ (vcomponent formats xcal parse) sxcal->vcomponent)
;; TODO strip *TOP*
xml->sxml)]
- [else (scm-error 'misc-error "convert-main" "Unexpected parser type: ~a" (list from) #f)]
+ [else (scm-error 'misc-error "convert-main"
+ (_ "Unexpected parser type: ~a")
+ (list from) #f)]
))
(define writer
@@ -86,7 +88,9 @@
(sxml->xml ((@ (vcomponent formats xcal output) vcomponent->sxcal)
component)
port))]
- [else (scm-error 'misc-error "convert-main" "Unexpected writer type: ~a" (list to) #f)]))
+ [else (scm-error 'misc-error "convert-main"
+ (_ "Unexpected writer type: ~a")
+ (list to) #f)]))
(call-with-output-file outfile