diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 719fcfce..fd8628f9 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -5,7 +5,6 @@ :use-module (vcomponent primitive) :use-module ((ice-9 optargs) :select (define*-public))) - (define (get-attr component attr) (%vcomponent-get-attribute component @@ -15,6 +14,8 @@ (set! (car (get-attr component (as-string attr))) value)) +(define-public value caar) + (define-public (values-left-count attr-list) (length (take-while identity attr-list))) |