diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-30 01:45:33 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | d6304f9b0acd3894fd08fccee75ab47d10f9a64a (patch) | |
| tree | 51c08b7e65d7ce41d97f51dcbe2557c1b851fd3b /module/vcomponent/describe.scm | |
| parent | Add basic event creation from HTML. (diff) | |
| download | calp-d6304f9b0acd3894fd08fccee75ab47d10f9a64a.tar.gz calp-d6304f9b0acd3894fd08fccee75ab47d10f9a64a.tar.xz | |
Rename attributes => properties, properties => parameters.
Diffstat (limited to 'module/vcomponent/describe.scm')
| -rw-r--r-- | module/vcomponent/describe.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm index 4e89f5e8..a16c67d0 100644 --- a/module/vcomponent/describe.scm +++ b/module/vcomponent/describe.scm @@ -9,7 +9,7 @@ (define maxlen (find-max (hash-map->list (lambda (a _) (string-length (symbol->string a))) - (attributes vcomponent)))) + (properties vcomponent)))) (format #t "~aBEGIN ~a~%" ii (type vcomponent)) @@ -20,12 +20,12 @@ (trim-to-width (format #f "~a" (value vline)) (- 80 indent maxlen))) - (awhen (properties vline) + (awhen (parameters vline) (display " ;") (for (key value) in it (format #t " ~a=~a" key value))) (newline)) - (attributes vcomponent)) + (properties vcomponent)) (for child in (children vcomponent) (describe child (+ indent 2))) |