# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 821147536 0
# Node ID b339e9aaea4b14345423fedf8721f423f9373f0c
# Parent  21a86b6274e61638a06735bba2b8c1755750842d
(Fbessel_jn, Fbessel_yn): Harmonize arguments with documentation.

diff -r 21a86b6274e6 -r b339e9aaea4b src/floatfns.c
--- a/src/floatfns.c	Tue Jan 09 00:32:09 1996 +0000
+++ b/src/floatfns.c	Tue Jan 09 00:32:16 1996 +0000
@@ -315,13 +315,13 @@
 DEFUN ("bessel-jn", Fbessel_jn, Sbessel_jn, 2, 2, 0,
   "Return the order N bessel function output jn of ARG.\n\
 The first arg (the order) is truncated to an integer.")
-  (arg1, arg2)
-     register Lisp_Object arg1, arg2;
+  (n, arg)
+     register Lisp_Object n, arg;
 {
-  int i1 = extract_float (arg1);
-  double f2 = extract_float (arg2);
+  int i1 = extract_float (n);
+  double f2 = extract_float (arg);
 
-  IN_FLOAT (f2 = jn (i1, f2), "bessel-jn", arg1);
+  IN_FLOAT (f2 = jn (i1, f2), "bessel-jn", n);
   return make_float (f2);
 }
 
@@ -348,13 +348,13 @@
 DEFUN ("bessel-yn", Fbessel_yn, Sbessel_yn, 2, 2, 0,
   "Return the order N bessel function output yn of ARG.\n\
 The first arg (the order) is truncated to an integer.")
-  (arg1, arg2)
-     register Lisp_Object arg1, arg2;
+  (n, arg)
+     register Lisp_Object n, arg;
 {
-  int i1 = extract_float (arg1);
-  double f2 = extract_float (arg2);
+  int i1 = extract_float (n);
+  double f2 = extract_float (arg);
 
-  IN_FLOAT (f2 = yn (i1, f2), "bessel-yn", arg1);
+  IN_FLOAT (f2 = yn (i1, f2), "bessel-yn", n);
   return make_float (f2);
 }