diff --git a/src/members-print.scm b/src/members-print.scm index 2885605..afe9eda 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -175,7 +175,6 @@ (file-path (brmember-file-path mr)) (blame (git-blame (*members-directory*) file-name)) ) - (print blame) (print file-name ":") (print-source-listing blame diff --git a/src/util-git.scm b/src/util-git.scm index 77fca60..0ff0ad2 100644 --- a/src/util-git.scm +++ b/src/util-git.scm @@ -119,9 +119,9 @@ (loop (cdr lines) (ldict-set blame 'commit (car ll)) blames))) - ((eq? (string-ref line 0) #\space) + ((memq (string-ref line 0) '(#\space #\tab)) ;; Actual line with data - (let ((rline (substring line 8))) + (let ((rline (substring line 1))) (loop (cdr lines) (make-ldict) (cons (ldict-set blame 'line rline)