(math-compose-var): Fix declaration.

diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index a9c3ce0319eda100b56f065df3fb6ea59a2aea04..3141bfd04c349df2ac6b8b032a1217287721e15e 100644 (file)
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -35,7 +35,7 @@
 
 ;; Declare functions which are defined elsewhere.
 (declare-function math-compose-vector "calccomp" (a sep prec))
-(declare-function math-compose-var "calccomp" (a))
+(declare-function math-compose-var "calccomp" (a v))
 (declare-function math-tex-expr-is-flat "calccomp" (a))
 (declare-function math-read-factor "calc-aent" ())
 (declare-function math-read-expr-level "calc-aent" (exp-prec &optional exp-term))
@@ -693,7 +693,7 @@
       (if (eq calc-language 'latex)
           (format "\\text{%s}" (symbol-name (nth 1 a)))
         (format "\\hbox{%s}" (symbol-name (nth 1 a))))
-    (math-compose-var a)))
+    (math-compose-var a v)))
 
 (defun math-compose-tex-func (func a)
   (let (left right)