From e1027d701df9d941caf0a8c77f69e8760ecdb8c1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 6 Sep 2020 21:37:46 +0200
Subject: Described vcomponent now has keys sorted.

---
 module/vcomponent/describe.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'module')

diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm
index fbdcf206..af0f9433 100644
--- a/module/vcomponent/describe.scm
+++ b/module/vcomponent/describe.scm
@@ -32,7 +32,10 @@
                 (if (list? values)
                     (for-each out values)
                     (out values))))
-            (properties vcomponent))
+            (sort* (properties vcomponent)
+                   string<?
+                   ;; TODO is key always a symbol?
+                   (compose symbol->string car)))
 
   (for child in (children vcomponent)
 
-- 
cgit v1.2.3