diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:07:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:07:40 +0200 |
| commit | 5472b2f3beb49f86cc21f39645efeda4fe46f982 (patch) | |
| tree | 31b100b022466cc7e64ea6db74f195a71fc60b87 /module/vcomponent | |
| parent | Fix assert crashing in itself. (diff) | |
| download | calp-5472b2f3beb49f86cc21f39645efeda4fe46f982.tar.gz calp-5472b2f3beb49f86cc21f39645efeda4fe46f982.tar.xz | |
VComponent describe outputs line numbers when available.
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/describe.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm index 063efa9c..fbdcf206 100644 --- a/module/vcomponent/describe.scm +++ b/module/vcomponent/describe.scm @@ -22,6 +22,8 @@ (trim-to-width (format #f "~a" (value vline)) (- 80 indent maxlen))) + (awhen (vline-source vline) + (display ((@@ (vcomponent ical parse) get-line) it))) (unless (null? (parameters vline)) (display " ;") (for (key value) in (parameters vline) |