diff options
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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)))) |