diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 23:59:37 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 23:59:37 +0200 |
| commit | c4283d7f44c165b1e4dca775a1249fa6548e06d3 (patch) | |
| tree | c03838a67f56a7f2c7411f288c4302e209cf7325 | |
| parent | Properties now return alist instead of hashmap. (diff) | |
| download | calp-c4283d7f44c165b1e4dca775a1249fa6548e06d3.tar.gz calp-c4283d7f44c165b1e4dca775a1249fa6548e06d3.tar.xz | |
Fix parameter print in describe.
| -rw-r--r-- | module/vcomponent/describe.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm index 69084679..41c62c56 100644 --- a/module/vcomponent/describe.scm +++ b/module/vcomponent/describe.scm @@ -22,10 +22,10 @@ (trim-to-width (format #f "~a" (value vline)) (- 80 indent maxlen))) - (awhen (parameters vline) - (display " ;") - (for (key value) in it - (format #t " ~a=~a" key value))) + (unless (null? (parameters vline)) + (display " ;") + (for (key value) in (parameters vline) + (format #t " ~a=~a" key value))) (newline)) (if (list? values) (for-each out values) |