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

/all-integers-are-bignums: broken, but I don't know why.

Browse source
This commit is contained in:
Simon Brooke 2018-12-30 11:10:14 +00:00
parent 489f008044
commit 61573d85d9
3 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/arith/peano.c
View file

@ -284,7 +284,8 @@ struct cons_pointer multiply_2( struct stack_frame *frame,
result = arg2;
break;
case INTEGERTV:
result = multiply_integers( arg1, arg2 );
result = make_integer(cell1.payload.integer.value * cell2.payload.integer.value, NIL);
//result = multiply_integers( arg1, arg2 );
break;
case RATIOTV:
result =
@ -411,9 +412,8 @@ struct cons_pointer inverse( struct cons_pointer frame,
case RATIOTV:
result = make_ratio( frame,
make_integer( 0 -
to_long_int( cell.payload.
ratio.dividend ),
NIL ),
to_long_int( cell.payload.ratio.
dividend ), NIL ),
cell.payload.ratio.divisor );
break;
case REALTV:
@ -453,8 +453,7 @@ struct cons_pointer lisp_subtract( struct
break;
case INTEGERTV:
result = make_integer( cell0.payload.integer.value
- cell1.payload.integer.value,
NIL );
- cell1.payload.integer.value, NIL );
break;
case RATIOTV:{
struct cons_pointer tmp =