diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/vcomponent/formats/ical/output.scm | |
parent | Remove procedure tabset. (diff) | |
download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz |
Normalize keyword syntax.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/formats/ical/output.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm index fbb9c862..da891fa6 100644 --- a/module/vcomponent/formats/ical/output.scm +++ b/module/vcomponent/formats/ical/output.scm @@ -10,6 +10,7 @@ :use-module (srfi srfi-1) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) + :use-module (srfi srfi-88) :use-module (vcomponent) :use-module (vcomponent datetime) :use-module (vcomponent geo) @@ -118,7 +119,7 @@ ;; not a problem. ;; Setting the wrap-len to slightly lower than allowed also help ;; us not overshoot. -(define* (ical-line-fold string #:key (wrap-len 70)) +(define* (ical-line-fold string key: (wrap-len 70)) (cond [(< wrap-len (string-length string)) (format #f "~a\r\n ~a" (string-take string wrap-len) |