Changeset 25527 in project for release/4/ugarit/trunk/backend-fs.scm


Ignore:
Timestamp:
11/20/11 18:11:42 (9 years ago)
Author:
Alaric Snell-Pym
Message:

ugarit: Tracking archive space usage stats. Also migrated to using the miscmacros inc! macro to increment all those pesky counters nicely.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/ugarit/trunk/backend-fs.scm

    r25521 r25527  
    44(use matchable)
    55(use regex)
     6(use miscmacros)
    67
    78(define (backend-fs base)
     
    215216                   (set! *updates-since-last-commit* 0)))
    216217         (maybe-flush! (lambda ()
    217                          (set! *updates-since-last-commit*
    218                                (+ *updates-since-last-commit* 1))
     218                         (inc! *updates-since-last-commit*)
    219219                         (when (> *updates-since-last-commit* commit-interval)
    220220                             (flush!))))
Note: See TracChangeset for help on using the changeset viewer.