Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eabf0404
Commit
eabf0404
authored
Sep 08, 2012
by
Paul Eggert
Browse files
* floatfns.c (Ftan): Use tan (x), not (sin (x) / cos (x)).
This produces more-accurate results.
parent
0b3b1d23
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
src/ChangeLog
src/ChangeLog
+5
-0
src/floatfns.c
src/floatfns.c
+2
-2
No files found.
src/ChangeLog
View file @
eabf0404
2012-09-08 Paul Eggert <eggert@cs.ucla.edu>
* floatfns.c (Ftan): Use tan (x), not (sin (x) / cos (x)).
This produces more-accurate results.
2012-09-08 Jan Djärv <jan.h.d@swipnet.se>
* nsterm.m (updateFrameSize): Call setFrame: on the view when size
...
...
src/floatfns.c
View file @
eabf0404
...
...
@@ -265,12 +265,12 @@ DEFUN ("tan", Ftan, Stan, 1, 1, 0,
(
register
Lisp_Object
arg
)
{
double
d
=
extract_float
(
arg
);
double
c
=
cos
(
d
);
#ifdef FLOAT_CHECK_DOMAIN
double
c
=
cos
(
d
);
if
(
c
==
0
.
0
)
domain_error
(
"tan"
,
arg
);
#endif
IN_FLOAT
(
d
=
si
n
(
d
)
/
c
,
"tan"
,
arg
);
IN_FLOAT
(
d
=
ta
n
(
d
),
"tan"
,
arg
);
return
make_float
(
d
);
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment