# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 707881814 0
# Node ID 714b8017cc6b54d9fbb9479f3b80b4382da6c379
# Parent  d66fce68e77c0532c9a42b43a2269871673a60e1
entered into RCS

diff -r d66fce68e77c -r 714b8017cc6b src/floatfns.c
--- 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);