;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:03:51 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/float-sup.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (byte-code "ÀÁ!„\nÂÃ!ˆÀ‡" [fboundp atan error "Floating point was disabled at compile time"] 2) (defconst pi (byte-code "ÀÁ!Â_‡" [atan 1 4] 2) "\ The value of Pi (3.1415926...)") (defconst e (exp 1) "\ The value of e (2.7182818...)") (defconst degrees-to-radians (/ pi 180.0) "\ Degrees to radian conversion constant") (defconst radians-to-degrees (/ 180.0 pi) "\ Radian to degree conversion constant") (defalias 'degrees-to-radians '(macro . #[(x) "À Â¥ E‡" [* pi 180.0 x] 3 "\ Convert ARG from degrees to radians."])) (defalias 'radians-to-degrees '(macro . #[(x) "ÀÁ\n¥ E‡" [* 180.0 pi x] 3 "\ Convert ARG from radians to degrees."])) (provide (quote lisp-float-type))