(math-format-radix-float): Load `calc-ext' before we call `math-group-float'.

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index e97c97828c4e731da91cbf036777d57eca7ce866..16834483d7e94090c864de158fe9765700489322 100644 (file)
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -676,8 +676,9 @@
                        (setq str (substring str 1)
                              int (math-add int 1))))
                  (setq str (concat (math-format-number int) point str)))
-               (if calc-group-digits
-                   (setq str (math-group-float str))))
+               (when calc-group-digits
+                 (require 'calc-ext)
+                 (setq str (math-group-float str))))
            (setq figs 0))))
     (or str
        (let* ((prec calc-internal-prec)
@@ -745,8 +746,8 @@
          (while (eq (aref str (1- pos)) ?0) (setq pos (1- pos)))
          (and explo (eq (aref str (1- pos)) ?.) (setq pos (1- pos)))
          (setq str (substring str 0 pos))
-         (if calc-group-digits
-             (setq str (math-group-float str)))
+         (when calc-group-digits
+           (setq str (math-group-float str)))
          (if explo
              (let ((estr (let ((calc-number-radix 10)
                                (calc-group-digits nil))