Bugfix: missing data for output CSV.

This commit is contained in:
Ray Miller 2025-02-12 11:58:43 +00:00
parent b3e4d6e422
commit 0df7327c63

View file

@ -39,7 +39,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
(sorted (map cdr (sort-list
(map (lambda (xs) (cons (parse-size (last xs)) xs)) data)
(lambda (a b) (> (first a) (first b)))))))
(call-with-output-file out-file (lambda (port) (scm->dsv port #:format 'rfc4180)))))
(call-with-output-file out-file (lambda (port) (scm->dsv sorted port #:format 'rfc4180)))))
(define (main args)
(case (length args)