From 36a621855a319cf2de480b422d84c3f69b04254d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 6 May 2019 17:59:52 +0200
Subject: Add value function.

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

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

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)))
 
-- 
cgit v1.2.3