diff options
author | Yann Herklotz <git@yannherklotz.com> | 2022-03-19 12:05:44 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2022-03-19 12:05:44 +0000 |
commit | 10d614dca61aeccc9cb2bc0f2e4c77aae99e7a00 (patch) | |
tree | b6e0a2f034b083ae5c8c44e1015f945a0297ecbe /scripts/synthesis-results.scm | |
parent | 23fe30f8c23ecb743880cb9239410eb51bf1abab (diff) | |
download | vericert-10d614dca61aeccc9cb2bc0f2e4c77aae99e7a00.tar.gz vericert-10d614dca61aeccc9cb2bc0f2e4c77aae99e7a00.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 () |