diff options
Diffstat (limited to 'module/calp/benchmark/parse.scm')
| -rw-r--r-- | module/calp/benchmark/parse.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/calp/benchmark/parse.scm b/module/calp/benchmark/parse.scm index 68a6d5ff..e9bc509f 100644 --- a/module/calp/benchmark/parse.scm +++ b/module/calp/benchmark/parse.scm @@ -12,6 +12,7 @@ (define all-calendar-files (statprof (lambda () + (display "All calendar files\n") (concatenate (map (lambda (path) (map @@ -23,6 +24,7 @@ (define all-read (statprof (lambda () + (display "All read\n") (map (lambda ( fullname) (let ((cal (call-with-input-file fullname (@@ (vcomponent ical parse) read-file)))) @@ -32,6 +34,7 @@ (define tokenized (statprof (lambda () + (display "Tokenized\n") (map (lambda (one-read) (map (@@ (vcomponent ical parse) tokenize) one-read)) @@ -40,6 +43,7 @@ (define parsed (statprof (lambda () + (display "Parsed\n") (map (@@ (vcomponent ical parse) parse) tokenized)))) (format #t "~a files processed~%" |