aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/base.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/base.scm')
-rw-r--r--module/vcomponent/base.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index 1b582f0f..c5ec7af3 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -16,14 +16,15 @@
(key vline-key)
(value get-vline-value set-vline-value!)
(parameters get-vline-parameters)
- ;; TODO Add slot for optional source object, containing
- ;; - file of origin
- ;; - position in that file
- ;; - source string, before value parsing.
+ (source get-source set-source!)
)
(export vline-key)
+(define-public vline-source
+ (make-procedure-with-setter
+ get-source set-source!))
+
(define*-public (make-vline key value #:optional (ht (make-hash-table)))
(make-vline% key value ht))