Ignore:
Timestamp:
07/18/09 14:10:36 (12 years ago)
Author:
Alaric Snell-Pym
Message:

C-Keen's patches

File:
1 edited

Legend:

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

    r15241 r15242  
    1 (use srfi-2)
    2 (use srfi-4)
    3 (use srfi-18)
    4 (use miscmacros)
    5 (use posix)
    6 (use tiger-hash)
    7 (use sha2)
    8 (use aes)
    9 (use crypto-tools)
    10 (use z3)
    11 (use lzma)
    12 (use stty)
    13 (include "posixextras.scm")
    14 (include "backend-fs.scm")
    15 (include "backend-cache.scm")
    16 (include "backend-devtools.scm")
    17 
    18 (declare (export
    19    open-archive
     1(module ugarit-core
     2 ( open-archive
    203   archive?
    214   archive-writable?
     
    6144   tag-snapshot!
    6245   fold-history
    63    fold-archive-node))
     46   fold-archive-node)
     47
     48(import scheme)
     49(import chicken)
     50
     51(require-library lzma)
     52(import (prefix lzma lzma:))
     53(use srfi-1)
     54(use srfi-4)
     55(use srfi-13)
     56(use srfi-18)
     57(use extras)
     58(use ports)
     59(use files)
     60(use lolevel)
     61(use data-structures)
     62(use miscmacros)
     63(use posix)
     64(use tiger-hash)
     65(use sha2)
     66(use aes)
     67(use crypto-tools)
     68(use z3)
     69(use stty)
     70(use matchable)
     71(use regex)
     72
    6473
    6574;;
     
    99108   encrypt ; the encryptor, u8vector -> u8vector
    100109   decrypt) ; the decryptor, inverse of the above
     110
     111(include "posixextras.scm")
     112(include "backend-fs.scm")
     113(include "backend-cache.scm")
     114(include "backend-devtools.scm")
    101115
    102116(define (prepend-type-byte b v)
     
    655669      knil))
    656670
    657 (define (unlink-sexpr-stream-block! key sexpr-unlink!)
     671(define (unlink-sexpr-stream-block! archive key sexpr-unlink!)
    658672   (let ((result (archive-unlink! archive key)))
    659673      (if result
     
    668682               (lambda (archive leaf-key found-leaf-type)
    669683                  (assert (eq? found-leaf-type leaf-type))
    670                   (unlink-sexpr-stream-block! leaf-key sexpr-unlink!))))
     684                  (unlink-sexpr-stream-block! archive leaf-key sexpr-unlink!))))
    671685         ((eq? type leaf-type)
    672             (unlink-sexpr-stream-block! key sexpr-unlink!))
     686            (unlink-sexpr-stream-block! archive key sexpr-unlink!))
    673687         (else
    674688            (assert (or (eq? type leaf-type) (eq? type ks-type)))))))
     
    10211035                        (else
    10221036                           (kons #f dirent acc)))))
    1023             knil))))
    1024 
     1037            knil)))) )
     1038
Note: See TracChangeset for help on using the changeset viewer.