diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 20:58:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-27 20:58:31 +0200 |
commit | 8d2f64e441c041f317130f372760f4e5a76a171f (patch) | |
tree | dc30b12ae414a367f52a9e5116586948d2a234fb /module/vcomponent/xcal/parse.scm | |
parent | Add search field. (diff) | |
download | calp-8d2f64e441c041f317130f372760f4e5a76a171f.tar.gz calp-8d2f64e441c041f317130f372760f4e5a76a171f.tar.xz |
Propagate errors to HTML search page.
Diffstat (limited to 'module/vcomponent/xcal/parse.scm')
-rw-r--r-- | module/vcomponent/xcal/parse.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/xcal/parse.scm b/module/vcomponent/xcal/parse.scm index 26f25caa..17c684fc 100644 --- a/module/vcomponent/xcal/parse.scm +++ b/module/vcomponent/xcal/parse.scm @@ -75,7 +75,8 @@ [(ptag (ptype pvalue ...) ...) ;; TODO parameter type (rfc6321 3.5.) ;; TODO multi-valued parameters!!! - (hashq-set! ht (symbol-upcase ptag) (car (concatenate pvalue)))])) + (hashq-set! ht (symbol-upcase ptag) + (car (concatenate pvalue)))])) ht) (define* (parse-enum str enum optional: (allow-other #t)) |