Commits

evhan  committed 3678e36

add boolean force argument to index-read

  • Participants
  • Parent commits b55f631

Comments (0)

Files changed (2)

File git-lolevel.scm

 (define index-open             (foreign-lambda/allocate index git_index_open nonnull-c-string))
 (define index-write-tree       (foreign-lambda/allocate oid git_index_write_tree index))
 (define index-write-tree-to    (foreign-lambda/allocate oid git_index_write_tree_to index repository))
-(define index-read             (foreign-lambda/retval git_index_read index))
+(define index-read             (foreign-lambda/retval git_index_read index bool))
 (define index-write            (foreign-lambda/retval git_index_write index))
 (define index-add              (foreign-lambda/retval git_index_add index index-entry))
 (define index-add-bypath       (foreign-lambda/retval git_index_add_bypath index nonnull-c-string))
 ;; Index
 
 (define-git-record-type index
-  ((index) entrycount read write clear)
+  ((index) entrycount write clear)
   "#<index>"
   (git-index-free))
 
 (define (index-remove ix ref)
   (git-index-remove (index->pointer ix) ref 0))
 
+(define (index-read ix #!optional force)
+  (git-index-read (index->pointer ix) force))
+
 (define (index-ref ix key)
   (let ((ix* (index->pointer ix)))
     (pointer->index-entry