From d00fea566004e67161ee45246b239fff5d416b0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 21 Dec 2021 16:17:28 +0100 Subject: 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. --- module/vcomponent/base.scm | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'module/vcomponent/base.scm') 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))) -- cgit v1.2.3