Ugarit
Check-in [485a7f1e1a]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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)