Merge branch 'translation'

1 files changed, 6 insertions, 5 deletions

diff --git a/module/vcomponent/formats/common/types.scm b/module/vcomponent/formats/common/types.scm
index 97980e1a..9e18f1eb 100644
--- a/module/vcomponent/formats/common/types.scm
+++ b/module/vcomponent/formats/common/types.scm
@@ -5,13 +5,14 @@
   :use-module (datetime)
   :use-module (srfi srfi-9 gnu)
   :use-module (datetime timespec)
+  :use-module (calp translation)
   )
 
 ;; BINARY
 (define (parse-binary props value)
   ;; p 30
   (unless (string=? "BASE64" (hashq-ref props 'ENCODING))
-    (warning "Binary field not marked ENCODING=BASE64"))
+    (warning (_ "Binary field not marked ENCODING=BASE64")))
 
   ;; For icalendar no extra whitespace is allowed in a
   ;; binary field (except for line wrapping). This differs
@@ -23,7 +24,7 @@
   (cond
    [(string=? "TRUE" value) #t]
    [(string=? "FALSE" value) #f]
-   [else (warning "~a invalid boolean" value)]))
+   [else (warning (_ "~a invalid boolean") value)]))
 
 ;; CAL-ADDRESS ⇒ uri
 
@@ -56,7 +57,7 @@
 (define (parse-integer props value)
   (let ((n (string->number value)))
     (unless (integer? n)
-      (warning "Non integer as integer"))
+      (warning (_ "Non integer as integer")))
     n))
 
 ;; PERIOD
@@ -87,7 +88,7 @@
            (case (cadr rem)
              [(#\n #\N) (loop (cddr rem) (cons #\newline str) done)]
              [(#\; #\, #\\) => (lambda (c) (loop (cddr rem) (cons c str) done))]
-             [else => (lambda (c) (warning "Non-escapable character: ~a" c)
+             [else => (lambda (c) (warning (_ "Non-escapable character: ~a") c)
                          (loop (cddr rem) str done))])]
           [(#\,)
            (loop (cdr rem) '() (cons (reverse-list->string str) done))]
@@ -136,5 +137,5 @@
 
 (define-public (get-parser type)
   (or (hashq-ref type-parsers type #f)
-      (scm-error 'misc-error "get-parser" "No parser for type ~a"
+      (scm-error 'misc-error "get-parser" (_ "No parser for type ~a")
                  (list type) #f)))