aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/vcomponent/formats/ical/parse.scm5
-rw-r--r--module/vcomponent/formats/xcal/output.scm1
2 files changed, 0 insertions, 6 deletions
diff --git a/module/vcomponent/formats/ical/parse.scm b/module/vcomponent/formats/ical/parse.scm
index 38257fba..0433ba7c 100644
--- a/module/vcomponent/formats/ical/parse.scm
+++ b/module/vcomponent/formats/ical/parse.scm
@@ -311,12 +311,10 @@
(lambda ()
(parameterize ((warning-handler (warning-handler-proc token)))
(cond [(string=? "BEGIN" (car head))
- (format (current-error-port) "BEGIN ~s~%" (cadr head))
(loop (cdr lst)
(cons (vcomponent type: (string->symbol (cadr head)))
stack))]
[(string=? "END" (car head))
- (format (current-error-port) "END ~s~%" (cadr head))
(loop (cdr lst)
(if (null? (cdr stack))
;; return
@@ -339,9 +337,6 @@
(fold (lambda (vline stack)
(modify stack car*
(lambda (comp)
- (format (current-error-port)
- " stack=~s, comp=~s~%"
- stack comp)
(if (memv (key vline) repeating-properties)
(aif (prop* comp (key vline))
(prop* comp (key vline) (cons vline it))
diff --git a/module/vcomponent/formats/xcal/output.scm b/module/vcomponent/formats/xcal/output.scm
index 7cf8c591..2378d87e 100644
--- a/module/vcomponent/formats/xcal/output.scm
+++ b/module/vcomponent/formats/xcal/output.scm
@@ -111,7 +111,6 @@
[(? (compose internal-field? car)) #f]
[(key vlines ...)
- (format (current-error-port) "vlines: ~s~%" vlines)
(remove null?
`(,(xml xcal (downcase-symbol key))
,(parameters-tag (reduce assq-merge