Bugfix: missing data for output CSV.
This commit is contained in:
parent
b3e4d6e422
commit
0df7327c63
1 changed files with 1 additions and 1 deletions
|
@ -39,7 +39,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
(sorted (map cdr (sort-list
|
(sorted (map cdr (sort-list
|
||||||
(map (lambda (xs) (cons (parse-size (last xs)) xs)) data)
|
(map (lambda (xs) (cons (parse-size (last xs)) xs)) data)
|
||||||
(lambda (a b) (> (first a) (first b)))))))
|
(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)
|
(define (main args)
|
||||||
(case (length args)
|
(case (length args)
|
||||||
|
|
Loading…
Add table
Reference in a new issue