diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-05-18 20:54:24 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-05-18 20:54:24 -0400 |
| commit | d464818ca2fdae2655a312c0f3fa8b66481c6522 (patch) | |
| tree | d354a732dcfbfb578d9b84129f68265117eec9ed /lisp/calculator.el | |
| parent | d13f8874480e8687976f4a5ce4f5c9633233c782 (diff) | |
| download | emacs-d464818ca2fdae2655a312c0f3fa8b66481c6522.tar.gz | |
* lisp/calculator.el (calculator-funcall):
* lisp/textmodes/artist.el (artist-spray-random-points):
Use standard degree/radian conversion utilities.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 0aef07b1750..4027887fb07 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -1203,10 +1203,10 @@ arguments." ;; f is an expression (let ((TX (and X (calculator-truncate X))) (TY (and Y (calculator-truncate Y))) - (DX (if (and X calculator-deg) (/ (* X pi) 180) X)) + (DX (if (and X calculator-deg) (degrees-to-radians X) X)) (L calculator-saved-list) (fF `(calculator-funcall ',f x y)) - (fD `(if calculator-deg (/ (* x 180) float-pi) x))) + (fD `(if calculator-deg (* radians-to-degrees x) x))) (eval `(cl-flet ((F (&optional x y) ,fF) (D (x) ,fD)) (let ((X ,X) (Y ,Y) (DX ,DX) (TX ,TX) (TY ,TY) (L ',L)) ,f)) |