From 27fea2fe14a81f4e73e0e3e53ec5ac5db07a5d82 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 19 Mar 2022 12:05:44 +0000 Subject: Delete extra data files and scripts --- scripts/synthesis-results.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'scripts/synthesis-results.scm') 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 () -- cgit