packages/arbitools.el: minor fixes

diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index 8c43e7825df52c6c365c792be4c3becfee79c63d..76fe0bc279bd231fc06eb4dabd9ae157e3dbcedd 100644 (file)
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -273,6 +273,7 @@
   (interactive)
   (save-excursion
     (let ( (numberofrounds (arbitools-number-of-rounds))
+           (pointsstring   "")
            (points         0.0)
            (pointstosum    0.0)
            (roundcount     1))
@@ -283,7 +284,7 @@
         (while (<= roundcount numberofrounds)
           (beginning-of-line)
          (forward-char (+ 98 (* (- roundcount 1) 10))) ;; go to where the result is for each round
-          ;; FIXME: Use pcase?
+          (setq pointsstring (thing-at-point 'symbol))
           (cond ((string= (thing-at-point 'symbol) "1") (setq pointstosum 1.0))
                 ((string= (thing-at-point 'symbol) "+") (setq pointstosum 1.0))
                 ((string= (thing-at-point 'symbol) "=") (setq pointstosum 0.5))
@@ -309,7 +310,7 @@
     (let ((datachunk ""))
       (goto-char (point-min))
       (while (re-search-forward "^001" nil t)
-        (let* () ;; (linestring (thing-at-point 'line))
+        (let* ((linestring (thing-at-point 'line)))
           (beginning-of-line)
           (forward-char 89) ;; get the POS field
           (setq datachunk (thing-at-point 'word))
@@ -410,6 +411,7 @@
                  (save-excursion 
                    (while (re-search-forward "^013" nil t)
                     (let* ((linestringteam (thing-at-point 'line))
+                          (actualintegrant (string-to-number (substring linestringteam 40 44)))
                           (integrantcount 0)
                           (members 0))