;;; compiled by mycroft@hal on Tue Sep 22 05:07:55 1992 ;;; from file /src/emacs-19.0/lisp/float-sup.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!„\nÂÃ!ˆÀ‡" [fboundp atan error "Floating point was disabled at compile time"] 2) (defconst pi (byte-code "ÀÁÂ!Ã\"‡" [* atan 1 4] 3) "\ The value of Pi (3.1415926...)") (defconst e (exp 1) "\ The value of e (2.7182818...)") (defconst degrees-to-radians (/ pi 180) "\ Degrees to radian conversion constant") (defconst radians-to-degrees (/ 180 pi) "\ Radian to degree conversion constant") (fset 'degrees-to-radians (cons 'macro (make-byte-code (quote (x)) "ÀÁ\nÃ\" E‡" [* / pi 180 x] 4 "\ Convert ARG from degrees to radians."))) (fset 'radians-to-degrees (cons 'macro (make-byte-code (quote (x)) "ÀÁ \" E‡" [* / 180 pi x] 4 "\ Convert ARG from radians to degrees."))) (provide (quote lisp-float-type))