Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fprintf had absorbed flush-output! Oops! |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | alaricsp |
| Files: | files | file ages | folders |
| SHA1: | 485a7f1e1a99d6b4153f0f7f952ef969757cc46c |
| User & Date: | alaric 2015-09-26 10:30:26 |
Context
|
2016-02-21
| ||
| 21:43 | Work in progress: Re-using buffers rather than consing new ones all the time! Leaf check-in: 7debb510ed user: alaric tags: alaricsp | |
|
2015-09-26
| ||
| 10:30 | fprintf had absorbed flush-output! Oops! check-in: 485a7f1e1a user: alaric tags: alaricsp | |
|
2015-07-31
| ||
| 21:37 | [f1f2ce8cdc] Started work on cluster backend (because I need it...) check-in: 74f9480c6a user: alaric tags: alaricsp | |
Changes
Changes to ugarit.scm.
98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 |
(when update-due?
(set! next-progress-update
(+ (current-seconds)
progress-interval))
(fprintf progress-output-port
"~A ~A (~A)\n"
prefix
cpath (format-bytes csize)
(flush-output progress-output-port)))
(set! cpath #f)
(set! csize #f)
(set! bytes #f))
((dir-start)
(set! dir-depth
(+ dir-depth 1)))
((dir-end)
|
| | |
98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 |
(when update-due?
(set! next-progress-update
(+ (current-seconds)
progress-interval))
(fprintf progress-output-port
"~A ~A (~A)\n"
prefix
cpath (format-bytes csize))
(flush-output progress-output-port))
(set! cpath #f)
(set! csize #f)
(set! bytes #f))
((dir-start)
(set! dir-depth
(+ dir-depth 1)))
((dir-end)
|