Changeset 21301 in project for release/4/ugarit/trunk


Ignore:
Timestamp:
11/07/10 01:49:17 (11 years ago)
Author:
Alaric Snell-Pym
Message:

ugarit: Backend unit tests now all pass!

Location:
release/4/ugarit/trunk
Files:
2 edited

Legend:

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

    r15241 r21301  
    2525         (begin
    2626            ((storage-put! be) key data type)
    27             (cache-set! key type)))
     27            (cache-set! key type)
     28            (void)))
    2829      (lambda (key) ; exists?
    2930         (or
  • release/4/ugarit/trunk/backend-fs.scm

    r20740 r21301  
    343343
    344344         (("splitlog" logdir metadir max-logpart-size)
    345           (backend-splitlog logdir metadir max-logpart-size))
     345          (backend-splitlog logdir metadir (string->number max-logpart-size)))
    346346
    347347         (else
Note: See TracChangeset for help on using the changeset viewer.