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

This isn't working, but it's VERY promising.

Browse source
This commit is contained in:
Simon Brooke 2019-01-01 15:04:44 +00:00
parent 87007362f3
commit 4295b6e57f
5 changed files with 84 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/arith/peano.c
View file

@ -284,10 +284,10 @@ struct cons_pointer multiply_2( struct stack_frame *frame,
result = arg2;
break;
case INTEGERTV:
result =
make_integer( cell1.payload.integer.value *
cell2.payload.integer.value, NIL );
//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 =
@ -301,7 +301,7 @@ struct cons_pointer multiply_2( struct stack_frame *frame,
break;
default:
result = throw_exception( c_string_to_lisp_string
( L"Cannot multiply: not a number" ),
( L"Cannot multiply: argument 2 is not a number" ),
frame_pointer );
break;
}
@ -327,7 +327,7 @@ struct cons_pointer multiply_2( struct stack_frame *frame,
break;
default:
result = throw_exception( c_string_to_lisp_string
( L"Cannot multiply: not a number" ),
( L"Cannot multiply: argument 1 is not a number" ),
frame_pointer );
}
break;