Mercurial > emacs
comparison src/floatfns.c @ 3546:1950b2238ecc
(Fceiling): Fix spelling of "ceiling".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Jun 1993 18:29:07 +0000 |
| parents | d00aaf536bfd |
| children | 507f64624555 |
comparison
equal
deleted
inserted
replaced
| 3545:91d20436874c | 3546:1950b2238ecc |
|---|---|
| 657 register Lisp_Object arg; | 657 register Lisp_Object arg; |
| 658 { | 658 { |
| 659 CHECK_NUMBER_OR_FLOAT (arg, 0); | 659 CHECK_NUMBER_OR_FLOAT (arg, 0); |
| 660 | 660 |
| 661 if (XTYPE (arg) == Lisp_Float) | 661 if (XTYPE (arg) == Lisp_Float) |
| 662 IN_FLOAT (XSET (arg, Lisp_Int, ceil (XFLOAT (arg)->data)), "celing", arg); | 662 IN_FLOAT (XSET (arg, Lisp_Int, ceil (XFLOAT (arg)->data)), "ceiling", arg); |
| 663 | 663 |
| 664 return arg; | 664 return arg; |
| 665 } | 665 } |
| 666 | 666 |
| 667 DEFUN ("floor", Ffloor, Sfloor, 1, 1, 0, | 667 DEFUN ("floor", Ffloor, Sfloor, 1, 1, 0, |