From 88aab05e8de72ac07dc7639f9254cf8e727176ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 28 Jun 2020 23:27:47 +0200
Subject: Add base64 utility functions.

---
 module/vcomponent/parse/types.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/parse/types.scm b/module/vcomponent/parse/types.scm
index e9c5e811..552aa191 100644
--- a/module/vcomponent/parse/types.scm
+++ b/module/vcomponent/parse/types.scm
@@ -2,7 +2,6 @@
   :use-module (util)
   :use-module (util exceptions)
   :use-module (util base64)
-  :use-module (rnrs io ports)
   :use-module (datetime)
   :use-module (srfi srfi-9 gnu)
   )
@@ -13,8 +12,8 @@
   (unless (string=? "BASE64" (hashq-ref props 'ENCODING))
     (warning "Binary field not marked ENCODING=BASE64"))
 
-  (base64->bytevector
-   (string->bytevector value (make-transcoder (latin-1-codec)))))
+  ;; TODO whitespace in binary?
+  (base64-string->bytevector value))
 
 ;; BOOLEAN
 (define (parse-boolean props value)
-- 
cgit v1.2.3