Mercurial > emacs
comparison src/floatfns.c @ 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 | 621a575db6f7 |
children | ee40177f6c68 |
comparison
equal
deleted
inserted
replaced
14075:21a86b6274e6 | 14076:b339e9aaea4b |
---|---|
313 } | 313 } |
314 | 314 |
315 DEFUN ("bessel-jn", Fbessel_jn, Sbessel_jn, 2, 2, 0, | 315 DEFUN ("bessel-jn", Fbessel_jn, Sbessel_jn, 2, 2, 0, |
316 "Return the order N bessel function output jn of ARG.\n\ | 316 "Return the order N bessel function output jn of ARG.\n\ |
317 The first arg (the order) is truncated to an integer.") | 317 The first arg (the order) is truncated to an integer.") |
318 (arg1, arg2) | 318 (n, arg) |
319 register Lisp_Object arg1, arg2; | 319 register Lisp_Object n, arg; |
320 { | 320 { |
321 int i1 = extract_float (arg1); | 321 int i1 = extract_float (n); |
322 double f2 = extract_float (arg2); | 322 double f2 = extract_float (arg); |
323 | 323 |
324 IN_FLOAT (f2 = jn (i1, f2), "bessel-jn", arg1); | 324 IN_FLOAT (f2 = jn (i1, f2), "bessel-jn", n); |
325 return make_float (f2); | 325 return make_float (f2); |
326 } | 326 } |
327 | 327 |
328 DEFUN ("bessel-y0", Fbessel_y0, Sbessel_y0, 1, 1, 0, | 328 DEFUN ("bessel-y0", Fbessel_y0, Sbessel_y0, 1, 1, 0, |
329 "Return the bessel function y0 of ARG.") | 329 "Return the bessel function y0 of ARG.") |
346 } | 346 } |
347 | 347 |
348 DEFUN ("bessel-yn", Fbessel_yn, Sbessel_yn, 2, 2, 0, | 348 DEFUN ("bessel-yn", Fbessel_yn, Sbessel_yn, 2, 2, 0, |
349 "Return the order N bessel function output yn of ARG.\n\ | 349 "Return the order N bessel function output yn of ARG.\n\ |
350 The first arg (the order) is truncated to an integer.") | 350 The first arg (the order) is truncated to an integer.") |
351 (arg1, arg2) | 351 (n, arg) |
352 register Lisp_Object arg1, arg2; | 352 register Lisp_Object n, arg; |
353 { | 353 { |
354 int i1 = extract_float (arg1); | 354 int i1 = extract_float (n); |
355 double f2 = extract_float (arg2); | 355 double f2 = extract_float (arg); |
356 | 356 |
357 IN_FLOAT (f2 = yn (i1, f2), "bessel-yn", arg1); | 357 IN_FLOAT (f2 = yn (i1, f2), "bessel-yn", n); |
358 return make_float (f2); | 358 return make_float (f2); |
359 } | 359 } |
360 | 360 |
361 #endif | 361 #endif |
362 | 362 |