From b3301ea20ae6ecb3c6cf353111d982251cbbad72 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 15 Jun 2020 19:19:30 +0200 Subject: Save soruce-prop object to vline. --- module/vcomponent/base.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/base.scm') 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)) -- cgit v1.2.3