aboutsummaryrefslogtreecommitdiffstats
path: root/src/floatfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/floatfns.c')
-rw-r--r--src/floatfns.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/floatfns.c b/src/floatfns.c
index 64dc308c7dd..4c1548cfd8f 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -192,8 +192,7 @@ static char *float_error_fn_name;
192/* Extract a Lisp number as a `double', or signal an error. */ 192/* Extract a Lisp number as a `double', or signal an error. */
193 193
194double 194double
195extract_float (num) 195extract_float (Lisp_Object num)
196 Lisp_Object num;
197{ 196{
198 CHECK_NUMBER_OR_FLOAT (num); 197 CHECK_NUMBER_OR_FLOAT (num);
199 198
@@ -985,8 +984,7 @@ float_error (signo)
985 984
986#ifdef HAVE_MATHERR 985#ifdef HAVE_MATHERR
987int 986int
988matherr (x) 987matherr (struct exception *x)
989 struct exception *x;
990{ 988{
991 Lisp_Object args; 989 Lisp_Object args;
992 if (! in_float) 990 if (! in_float)
@@ -1014,7 +1012,7 @@ matherr (x)
1014#endif /* HAVE_MATHERR */ 1012#endif /* HAVE_MATHERR */
1015 1013
1016void 1014void
1017init_floatfns () 1015init_floatfns (void)
1018{ 1016{
1019#ifdef FLOAT_CATCH_SIGILL 1017#ifdef FLOAT_CATCH_SIGILL
1020 signal (SIGILL, float_error); 1018 signal (SIGILL, float_error);
@@ -1023,7 +1021,7 @@ init_floatfns ()
1023} 1021}
1024 1022
1025void 1023void
1026syms_of_floatfns () 1024syms_of_floatfns (void)
1027{ 1025{
1028 defsubr (&Sacos); 1026 defsubr (&Sacos);
1029 defsubr (&Sasin); 1027 defsubr (&Sasin);