diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:02:42 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:02:42 +0200 |
| commit | ba392c218664937dbd07411a38cbbc4e6f0c69b3 (patch) | |
| tree | 341166beba5b75ffb3b8240fc3c349b2ced111e3 /module/calp/webdav | |
| parent | fixup! 9b28572 (diff) | |
| download | calp-ba392c218664937dbd07411a38cbbc4e6f0c69b3.tar.gz calp-ba392c218664937dbd07411a38cbbc4e6f0c69b3.tar.xz | |
Add number of clearifying comments + minor cleanup.
Diffstat (limited to 'module/calp/webdav')
| -rw-r--r-- | module/calp/webdav/resource/virtual.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/calp/webdav/resource/virtual.scm b/module/calp/webdav/resource/virtual.scm index 1d2d5d31..42ffc123 100644 --- a/module/calp/webdav/resource/virtual.scm +++ b/module/calp/webdav/resource/virtual.scm @@ -38,7 +38,8 @@ (define-method (live-properties (self <virtual-resource>)) (append (next-method) - (list (cons (xml-element-hash-key (xml virtual-ns 'isvirtual)) (make-live-property isvirtual set-isvirtual!))))) + (list (cons (xml-element-hash-key (xml virtual-ns 'isvirtual)) + (make-live-property isvirtual set-isvirtual!))))) (define-method (content (self <virtual-resource>)) (content* self)) |