[nongnu] elpa/vc-fossil aff450c 018/111: deal with some compiler warnings (assignments to line etc remain)

[ELPA Syncer]

branch: elpa/vc-fossil
commit aff450c63f5fdc0cb68aff8ec8a758b949895be2
Author: barak <barak>
Commit: barak <barak>

    deal with some compiler warnings (assignments to line etc remain)
---
 vc/el/vc-fossil.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index 78f42d2..c550f32 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -205,10 +205,10 @@
       (vc-fossil-command buffer 0 file "finfo" "-r" rev "-p")))
 
 (defun vc-fossil-checkout (file &optional editable rev)
-  (if (eq rev t)
-      (vc-fossil-command nil 0 nil "update")
-    ((vc-fossil-command nil 0 nil "update" rev)
-  )))
+  (cond ((eq rev t)
+        (vc-fossil-command nil 0 nil "update"))
+       (t
+        (vc-fossil-command nil 0 nil "update" rev))))
 
 (defun vc-fossil-revert (file &optional contents-done)
   "Revert FILE to the version stored in the fossil repository."
@@ -249,7 +249,7 @@
 
 (defun vc-fossil-create-tag (file name branchp)
   (let* ((dir (if (file-directory-p file) file (file-name-directory file)))
-        ((default-directory dir)))
+        (default-directory dir))
     (if branchp
        (vc-fossil-command nil 0 nil "branch" "new" name (vc-fossil-get-id dir))
       (vc-fossil-command nil 0 nil "tag" "add" name (vc-fossil-get-id dir)))))