From 1baf017aaaf38fb6a13bedc2c97f6450748ae738 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 5 Jul 2020 22:20:24 +0200
Subject: Remove some TODO:s.

---
 module/vcomponent/base.scm            | 3 +++
 module/vcomponent/parse/component.scm | 2 --
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index 6b9363b6..413e7c0c 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -188,3 +188,6 @@
 (define-public (key=? k1 k2)
   (eq? (as-symb k1)
        (as-symb k2)))
+
+(define-public (x-property? symb)
+  (string=? "X-" (string-take (symbol->string symb) 2)))
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm
index 25d2642d..41ef30f5 100644
--- a/module/vcomponent/parse/component.scm
+++ b/module/vcomponent/parse/component.scm
@@ -72,8 +72,6 @@
         (cons -1 semi-idxs)
         semi-idxs)))
 
-(define (x-property? symb)
-  (string=? "X-" (string-take (symbol->string symb) 2)))
 
 #;
 '(ATTACH ATTENDEE CATEGORIES
-- 
cgit v1.2.3