Ignore:
Timestamp:
11/14/11 13:51:10 (10 years ago)
Author:
Alaric Snell-Pym
Message:

ugarit: Significant README improvements, and enabled consistency check of read blocks by default, and removed warning about deletions from backend-cache.

File:
1 edited

Legend:

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

    r25479 r25501  
    322322  ((storage-exists? (archive-storage archive)) key))
    323323
    324 (define (archive-get archive key)
     324(define (archive-get archive key) ;; FIXME: Avoid fetching type. Pass in expected type from caller?
    325325  (let ((data (unwrap-block archive ((storage-get (archive-storage archive)) key))))
    326     (if (archive-check-correctness? archive)
    327         (if (string=? key ((archive-hash archive) data (archive-exists? archive key)))
    328             data
    329             (begin
    330               (printf "CONSISTENCY CHECK FAILURE: Block ~A comes back as ~A which has hash ~A\n" key data ((archive-hash archive) data (archive-exists? archive key)))
    331               (assert #f))))
     326    (assert (string=? key ((archive-hash archive) data (archive-exists? archive key)))
     327            (sprintf "CONSISTENCY CHECK FAILURE: Block ~A comes back with hash ~A\n" key ((archive-hash archive) data (archive-exists? archive key))))
    332328    data))
    333329
Note: See TracChangeset for help on using the changeset viewer.