diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
| commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
| tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/calp/benchmark | |
| parent | Complete rewrite of use2dot (diff) | |
| download | calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz | |
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.
Diffstat (limited to 'module/calp/benchmark')
| -rw-r--r-- | module/calp/benchmark/parse.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/calp/benchmark/parse.scm b/module/calp/benchmark/parse.scm index f1be66f5..2d7c7b18 100644 --- a/module/calp/benchmark/parse.scm +++ b/module/calp/benchmark/parse.scm @@ -27,7 +27,7 @@ (display "All read\n") (map (lambda ( fullname) (let ((cal (call-with-input-file fullname - (@@ (vcomponent ical parse) read-file)))) + (@@ (vcomponent formats ical parse) read-file)))) cal)) all-calendar-files)))) @@ -36,7 +36,7 @@ (lambda () (display "Tokenized\n") (map (lambda (one-read) - (map (@@ (vcomponent ical parse) tokenize) + (map (@@ (vcomponent formats ical parse) tokenize) one-read)) all-read)))) @@ -44,7 +44,7 @@ (statprof (lambda () (display "Parsed\n") - (map (@@ (vcomponent ical parse) parse) tokenized)))) + (map (@@ (vcomponent formats ical parse) parse) tokenized)))) (format #t "~a files processed~%" (length parsed)) |