From 98fa30d745641e6a9775d9a53ecaa21c444a9f03 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Mon, 18 Jul 2016 23:16:14 +0000 Subject: cosmetic changes to `difme` function. * git-difme.scm (difme): change local variable name in proces function. --- git-difme.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/git-difme.scm b/git-difme.scm index 4623ea8..fbe9dba 100644 --- a/git-difme.scm +++ b/git-difme.scm @@ -146,10 +146,10 @@ also does `git push` to the repo' default upstream remote." (let ((msg (string-append msg " already staged file(s)."))) (difme-commit repo-path msg))) (define (process file-info) - (let* ((type (car file-info)) + (let* ((mod-type (car file-info)) (file-path (cdr file-info)) - (msg (string-append msg " [" type "]."))) (if (string-match stage-regex type) + (msg (string-append msg " [" mod-type "]."))) (difme-stage-commit repo-path file-path msg)))) ;; first commit already staged files. (commit-staged) -- cgit v1.2.3