diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-06 17:59:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-06 17:59:52 +0200 |
| commit | 36a621855a319cf2de480b422d84c3f69b04254d (patch) | |
| tree | 71394b2fd16f0f22389e5f8012dd36eff9f37aef | |
| parent | Clean up in config. (diff) | |
| download | calp-36a621855a319cf2de480b422d84c3f69b04254d.tar.gz calp-36a621855a319cf2de480b422d84c3f69b04254d.tar.xz | |
Add value function.
| -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))) |