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
31ef7f7a
Commit
31ef7f7a
authored
Jan 26, 1993
by
Jim Blandy
Browse files
* fns.c (internal_equal): Protect the clause for comparing numbers
of different tpes with a "#ifdef LISP_FLOAT_TYPE".
parent
dbc4e1c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
0 deletions
+2
-0
src/fns.c
src/fns.c
+2
-0
No files found.
src/fns.c
View file @
31ef7f7a
...
...
@@ -837,10 +837,12 @@ internal_equal (o1, o2, depth)
do_cdr:
QUIT
;
if
(
EQ
(
o1
,
o2
))
return
Qt
;
#ifdef LISP_FLOAT_TYPE
if
(
NUMBERP
(
o1
)
&&
NUMBERP
(
o2
))
{
return
(
extract_float
(
o1
)
==
extract_float
(
o2
))
?
Qt
:
Qnil
;
}
#endif
if
(
XTYPE
(
o1
)
!=
XTYPE
(
o2
))
return
Qnil
;
if
(
XTYPE
(
o1
)
==
Lisp_Cons
)
{
...
...
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