aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/base.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2021-12-21 16:17:28 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2021-12-22 22:58:30 +0100
commitd00fea566004e67161ee45246b239fff5d416b0e (patch)
tree5641c0c0d0e78b046b6045ed2440512f12259560 /module/vcomponent/base.scm
parentComplete rewrite of use2dot (diff)
downloadcalp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz
calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly labeled modules, instead of being spread out. At the same time it also removes a handfull of unused procedures.
Diffstat (limited to 'module/vcomponent/base.scm')
-rw-r--r--module/vcomponent/base.scm10
1 files changed, 0 insertions, 10 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm
index ab2121a2..66e6534f 100644
--- a/module/vcomponent/base.scm
+++ b/module/vcomponent/base.scm
@@ -85,9 +85,6 @@
=> (lambda (vline) (set-vline-value! vline value))]
[else (hashq-set! ht key (make-vline key value))])))
-(define-public (set-vline! component key vline)
- (hashq-set! (get-component-properties component)
- key vline))
@@ -158,9 +155,6 @@
(define-public (properties component)
(hash-map->list cons (get-component-properties component)))
-(define-public (property-keys component)
- (hash-map->list (lambda (a _) a) (get-component-properties component)))
-
(define (copy-vline vline)
(make-vline (vline-key vline)
(get-vline-value vline)
@@ -186,10 +180,6 @@
(define-public (extract* field)
(lambda (e) (prop* e field)))
-(define-public (key=? k1 k2)
- (eq? (as-symb k1)
- (as-symb k2)))
-
(define-public (x-property? symb)
(string=? "X-" (string-take (symbol->string symb) 2)))