diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-06-26 10:03:48 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-06-26 10:03:48 -0400 |
| commit | 698ff554ac2699ec48fefc85a1307cbc4a183b0d (patch) | |
| tree | a7b7592f7973f81cad4410366d313e790616907e /lisp/calc/calc-math.el | |
| parent | 9233865b7005831e63755eb84ae7da060f878a55 (diff) | |
| download | emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.tar.gz emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.tar.bz2 emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.zip | |
* lisp/calc/calc-ext.el (math-scalarp): Fix typo
Diffstat (limited to 'lisp/calc/calc-math.el')
| -rw-r--r-- | lisp/calc/calc-math.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index 4ca8515989b..f9a420090ee 100644 --- a/lisp/calc/calc-math.el +++ b/lisp/calc/calc-math.el @@ -31,9 +31,8 @@ (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) @@ -46,9 +45,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) @@ -367,9 +366,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)) |