Fix naming for predicates.

2 files changed, 3 insertions, 3 deletions

diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index e6d595d..5f3474c 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -69,7 +69,7 @@
 (define (git-invoke repo-path . args)
   (apply system* "git" "-C" repo-path args))
 
-(define (is-repo? repo-path)
+(define (git-repository? repo-path)
   (let ((data (git-invoke repo-path  "rev-parse")))
     (zero? data)))
 
@@ -83,7 +83,7 @@
   (unless (string=? prev-commit (get-latest-commit-sha1 repo))
     (throw 'system-error (format #f "Commits do no match.Please pull in latest  changes for current * ~a * and prev * ~a * "
                                  (get-latest-commit-sha1 repo) prev-commit)))
-  (if (is-repo? repo)
+  (if (git-repository? repo)
       (match (file-exists? (string-append repo "/" file-path))
         (#t
          (with-output-to-file (string-append repo "/" file-path)
diff --git a/web/webserver.scm b/web/webserver.scm
index ded9997..9f278be 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -179,7 +179,7 @@ otherwise search for set/group data"
       (let* ((post-data
               (decode-request-json body))
              (_ (for-each (lambda (target)
-                            (is-invalid-data?  post-data target)
+                            (invalid-data?  post-data target)
                             ) '("filename" "content" "username" "email" "prev_commit")))
              (file-name (assoc-ref post-data "filename"))
              (content  (assoc-ref post-data "content"))