From c1cbef6611df9c8918fee8699b5867d8a54ac810 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 17 Aug 2020 18:13:58 +0200
Subject: even more.

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

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

diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index 7b81fb05..47815a0e 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -189,3 +189,8 @@
 
 (define-public (x-property? symb)
   (string=? "X-" (string-take (symbol->string symb) 2)))
+
+(define*-public (internal-field? symbol optional: (prefix "-"))
+  (string=? prefix
+            (string-take-to (symbol->string symbol)
+                            (string-length prefix))))
-- 
cgit v1.2.3