From 4ec130209bcd88ffde56b9b44e2de2c043519ffc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 2 May 2019 23:44:20 +0200
Subject: Think it's only reintroducing of set! left.

---
 module/vcomponent/primitive.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/vcomponent/primitive.scm')

diff --git a/module/vcomponent/primitive.scm b/module/vcomponent/primitive.scm
index 06b6fd83..53d73652 100644
--- a/module/vcomponent/primitive.scm
+++ b/module/vcomponent/primitive.scm
@@ -20,3 +20,6 @@
         (string-append (dirname (dirname (dirname (current-filename))))
                        "/lib"))
 (load-extension "libguile-calendar" "init_lib")
+
+(define (%vcomponent-attribute-list comp)
+  (map car (hash-map->list cons (%vcomponent-get-hash-table comp))))
-- 
cgit v1.2.3