diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2022-03-19 12:05:44 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2022-03-22 16:18:06 +0000 |
| commit | 27fea2fe14a81f4e73e0e3e53ec5ac5db07a5d82 (patch) | |
| tree | 4c474f1426a0f84f131300eff3c70f43cf7f77bc /scripts/synthesis-results.scm | |
| parent | 23fe30f8c23ecb743880cb9239410eb51bf1abab (diff) | |
| download | vericert-27fea2fe14a81f4e73e0e3e53ec5ac5db07a5d82.tar.gz vericert-27fea2fe14a81f4e73e0e3e53ec5ac5db07a5d82.zip | |
Delete extra data files and scripts
Diffstat (limited to 'scripts/synthesis-results.scm')
| -rwxr-xr-x | scripts/synthesis-results.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/synthesis-results.scm b/scripts/synthesis-results.scm index 11c66c1..94c169f 100755 --- a/scripts/synthesis-results.scm +++ b/scripts/synthesis-results.scm @@ -91,7 +91,7 @@ (lambda () (list name (xml-matcher (ssax:xml->sxml (current-input-port) '())))))) -(define (to-csv-record b head results) +(define ((to-csv-record b head) results) (let ((res (map (lambda (key) (cadr (assoc key (cadr results)))) head))) (csv:fmt-row (if b res (cons (car results) res))))) @@ -126,8 +126,7 @@ (let ((head (split-at-comma (or (check-opt 'keys) "slice,ramfifo,delay"))) (suppress (split-at-comma (or (check-opt 'suppress) "none"))) (files (get-files-from-op operands))) - (let ((body (map (lambda (f) (to-csv-record (member "name" suppress) head f)) - (convert-files files))) + (let ((body (map (to-csv-record (member "name" suppress) head) (convert-files files))) (header (csv:fmt-row (if (member "name" suppress) head (cons "name" head))))) (with-output (lambda () |