Mercurial > emacs

changeset 694:714b8017cc6b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Jun 1992 01:50:14 +0000
parents d66fce68e77c
children e3fac20d3015
files src/floatfns.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/floatfns.c	Sat Jun 06 01:50:04 1992 +0000
+++ b/src/floatfns.c	Sun Jun 07 01:50:14 1992 +0000
@@ -242,9 +242,7 @@
   return make_float (d);
 }
 
-#endif
-
-DEFUN ("cube-root", Fcube_root, Scube_root, 1, 1, 0,
+DEFUN ("cbrt", Fcbrt, Scbrt, 1, 1, 0,
   "Return the cube root of ARG.")
   (num)
      register Lisp_Object num;
@@ -254,6 +252,8 @@
   return make_float (d);
 }
 
+#endif
+
 DEFUN ("exp", Fexp, Sexp, 1, 1, 0,
   "Return the exponential base e of ARG.")
   (num)
@@ -350,7 +350,7 @@
   return make_float (d);
 }
 
-#ifndef /* Not clearly worth adding.  */
+#if 0 /* Not clearly worth adding.  */
 
 DEFUN ("acosh", Facosh, Sacosh, 1, 1, 0,
   "Return the inverse hyperbolic cosine of ARG.")
@@ -565,8 +565,8 @@
   defsubr (&Serf);
   defsubr (&Serfc);
   defsubr (&Slog_gamma);
+  defsubr (&Scbrt);
 #endif
-  defsubr (&Scube_root);
   defsubr (&Sexp);
   defsubr (&Sexpm1);
   defsubr (&Sexpt);