aliens/tekuti
1
0
Fork 0
Code Activity

faster git-rev-parse

Browse source 
* tekuti/git.scm (git-rev-parse): Try to read the ref ourselves, first.
  Fall back to using git if that doesn't work (for example, if it's a
  packed ref).
This commit is contained in:
Andy Wingo 2012-02-15 22:31:54 +01:00
parent 8034123827
commit 085b4c76ef
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tekuti/git.scm
View file

@ -167,7 +167,11 @@
"\n" 'suffix)))))
(define (git-rev-parse rev)
(string-trim-both (git "rev-parse" rev)))
(or (false-if-exception
(let ((s (string-trim-both (call-with-input-file rev read-line))))
(and (= (string-length s) 40)
s)))
(git "rev-parse" rev)))
(define (git-rev-list rev n)
(let lp ((lines (string-split