simon/post-scarcity
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Getting closer. WARNING: GC disabled in this commit.

Browse source
This commit is contained in:
Simon Brooke 2019-01-22 09:48:26 +00:00
parent 3fd322af6f
commit bf72ae379d
6 changed files with 30 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ops/equal.c
View file

@ -12,7 +12,7 @@
#include "conspage.h"
#include "consspaceobject.h"
#include "integer.h"
#include "peano.h"
/**
* Shallow, and thus cheap, equality: true if these two objects are
@ -92,8 +92,8 @@ bool equal( struct cons_pointer a, struct cons_pointer b ) {
break;
case REALTV:
{
double num_a = numeric_value( a );
double num_b = numeric_value( b );
double num_a = to_long_double( a );
double num_b = to_long_double( b );
double max =
fabs( num_a ) >
fabs( num_b ) ? fabs( num_a ) : fabs( num_b );