Mercurial > emacs
changeset 14076:b339e9aaea4b
(Fbessel_jn, Fbessel_yn): Harmonize arguments with documentation.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Tue, 09 Jan 1996 00:32:16 +0000 |
| parents | 21a86b6274e6 |
| children | a6d3ce4a2f8e |
| files | src/floatfns.c |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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); }