diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:19:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:19:39 +0200 |
| commit | 96a66a75ca43a253440f2d0eca9b9b79080cb7d6 (patch) | |
| tree | 3095be64fd20727f3f3c1816d5e958aca4990f51 | |
| parent | Update some data formats to properly use table type. (diff) | |
| download | calp-96a66a75ca43a253440f2d0eca9b9b79080cb7d6.tar.gz calp-96a66a75ca43a253440f2d0eca9b9b79080cb7d6.tar.xz | |
Remove some old debug prints.
| -rw-r--r-- | module/vcomponent/formats/ical/parse.scm | 5 | ||||
| -rw-r--r-- | module/vcomponent/formats/xcal/output.scm | 1 |
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 |