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: |
485a7f1e1a99d6b4153f0f7f952ef969 |
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! Closed-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 | (when update-due? (set! next-progress-update (+ (current-seconds) progress-interval)) (fprintf progress-output-port "~A ~A (~A)\n" prefix | | | | 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) |
︙ | ︙ |