diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/vcomponent/util/describe.scm | |
parent | Complete rewrite of use2dot (diff) | |
download | calp-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 '')
-rw-r--r-- | module/vcomponent/util/describe.scm (renamed from module/vcomponent/describe.scm) | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/describe.scm b/module/vcomponent/util/describe.scm index af0f9433..5c3afd30 100644 --- a/module/vcomponent/describe.scm +++ b/module/vcomponent/util/describe.scm @@ -1,4 +1,4 @@ -(define-module (vcomponent describe) +(define-module (vcomponent util describe) :use-module (calp util) :use-module (vcomponent base) :use-module (text util)) @@ -23,7 +23,7 @@ (format #f "~a" (value vline)) (- 80 indent maxlen))) (awhen (vline-source vline) - (display ((@@ (vcomponent ical parse) get-line) it))) + (display ((@@ (vcomponent formats ical parse) get-line) it))) (unless (null? (parameters vline)) (display " ;") (for (key value) in (parameters vline) |