github/repo2html
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

simplify redundant (if COND #t #f)

Browse source
This commit is contained in:
pho4cexa 2022-12-04 12:17:30 -08:00 committed by m455
parent 58bd6a150d
commit aac42ed7b2
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
main.scm
View file

@ -74,9 +74,7 @@ string-block
(with-output-to-file file (lambda () (display contents)))) (with-output-to-file file (lambda () (display contents))))
(define (in-git-directory?) (define (in-git-directory?)
(if (equal? (call-with-input-pipe "git rev-parse --is-bare-repository 2> /dev/null" read-line) "true") (equal? (call-with-input-pipe "git rev-parse --is-bare-repository 2> /dev/null" read-line) "true"))
#t
#f))
(define (git-repository->paths-list) (define (git-repository->paths-list)
(call-with-input-pipe "git ls-tree -r --name-only HEAD" read-lines)) (call-with-input-pipe "git ls-tree -r --name-only HEAD" read-lines))