(math-read-token): Fix misplaced parentheses.

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 5b93a544397c85a2244ed1aa4a67d9441f9f4af7..22022d8b0ce1912d424c70ff5a8c64e5232c8529 100644 (file)
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -775,9 +775,9 @@ in Calc algebraic input.")
              (setq math-exp-token 'string
                    math-expr-data (math-match-substring math-exp-str 1)
                    math-exp-pos (match-end 0)))
-            ((and (setq adfn (get calc-language 'math-lang-read)))
+            ((and (setq adfn (get calc-language 'math-lang-read))
                   (eval (nth 0 adfn))
-                  (eval (nth 1 adfn)))
+                  (eval (nth 1 adfn))))
            ((eq (string-match "%%.*$" math-exp-str math-exp-pos) math-exp-pos)
             (setq math-exp-pos (match-end 0))
             (math-read-token))