Add testing of CSV lines parsing.
This commit is contained in:
parent
0d7a7f765c
commit
e1b673a519
2 changed files with 11 additions and 4 deletions
|
@ -122,7 +122,7 @@
|
|||
(* value (*progress%-width*)))))
|
||||
(swidth (- (*progress%-width*) bwidth)))
|
||||
(display
|
||||
(sprintf "\r[~A~A]~A% ~A"
|
||||
(sprintf "\r[~A~A] ~A% ~A"
|
||||
(make-string bwidth #\=)
|
||||
(make-string swidth #\space)
|
||||
ivalue%
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue