Revert "* lisp/calc/calc-ext.el (math-scalarp): Fix typo"

This reverts commit 698ff554ac2699ec48fefc85a1307cbc4a183b0d.

1 files changed, 9 insertions, 8 deletions

diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index f9a420090ee..4ca8515989b 100644
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -31,8 +31,9 @@
 (require 'calc-macs)
 
 
-;; Find out how many 9s in 9.9999... will give distinct Emacs floats,
-;; then back off by one.
+;;; Find out how many 9s in 9.9999... will give distinct Emacs floats,
+;;; then back off by one.
+
 (defvar math-emacs-precision
   (let* ((n 1)
          (x 9)
@@ -45,9 +46,9 @@
     (1- n))
   "The number of digits in an Emacs float.")
 
-;; Find the largest power of 10 which is an Emacs float,
-;; then back off by one so that any float d.dddd...eN
-;; is an Emacs float, for acceptable d.dddd....
+;;; Find the largest power of 10 which is an Emacs float,
+;;; then back off by one so that any float d.dddd...eN
+;;; is an Emacs float, for acceptable d.dddd....
 
 (defvar math-largest-emacs-expt
   (let ((x 1)
@@ -366,9 +367,9 @@ If this can't be done, return NIL."
    (message "Angles measured in radians")))
 
 
-;; Compute the integer square-root floor(sqrt(A)).  A > 0.  [I I] [Public]
-;; This method takes advantage of the fact that Newton's method starting
-;; with an overestimate always works, even using truncating integer division!
+;;; Compute the integer square-root floor(sqrt(A)).  A > 0.  [I I] [Public]
+;;; This method takes advantage of the fact that Newton's method starting
+;;; with an overestimate always works, even using truncating integer division!
 (defun math-isqrt (a)
   (cond ((Math-zerop a) a)
         ((not (natnump a))