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-cache.scm

    r25521 r25527  
    22(use sql-de-lite)
    33(use matchable)
     4(use miscmacros)
    45
    56(define cache-sql-schema
     
    2728     (set! *updates-since-last-commit* 0))
    2829   (define (maybe-flush!)
    29      (set! *updates-since-last-commit*
    30            (+ *updates-since-last-commit* 1))
     30     (inc! *updates-since-last-commit*)
    3131     (when (> *updates-since-last-commit* commit-interval)
    3232           (flush!)))
Note: See TracChangeset for help on using the changeset viewer.