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

Whitespace changes only - trying to keep the format regular

Browse source
This commit is contained in:
simon 2017-09-14 19:02:03 +01:00
parent e43c9a7b33
commit 79f7492390
13 changed files with 131 additions and 133 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
src/peano.c
View file

@ -50,15 +50,13 @@ lisp_add(struct stack_frame *frame, struct cons_pointer env) {
d_accumulator += arg.payload.real.value;
is_int = false;
default:
lisp_throw(
c_string_to_lisp_string("Cannot add: not a number"),
lisp_throw( c_string_to_lisp_string( "Cannot add: not a number" ),
frame );
}
if ( !nilp( frame->more ) ) {
lisp_throw(
c_string_to_lisp_string("Cannot yet add more than 8 numbers"),
frame);
lisp_throw( c_string_to_lisp_string
( "Cannot yet add more than 8 numbers" ), frame );
}
if ( is_int ) {
@ -96,15 +94,13 @@ lisp_multiply(struct stack_frame *frame, struct cons_pointer env) {
d_accumulator *= arg.payload.real.value;
is_int = false;
default:
lisp_throw(
c_string_to_lisp_string("Cannot multiply: not a number"),
frame);
lisp_throw( c_string_to_lisp_string
( "Cannot multiply: not a number" ), frame );
}
if ( !nilp( frame->more ) ) {
lisp_throw(
c_string_to_lisp_string("Cannot yet multiply more than 8 numbers"),
frame);
lisp_throw( c_string_to_lisp_string
( "Cannot yet multiply more than 8 numbers" ), frame );
}
if ( is_int ) {
@ -131,19 +127,23 @@ lisp_subtract(struct stack_frame *frame, struct cons_pointer env) {
struct cons_space_object arg1 = pointer2cell( frame->arg[1] );
if ( integerp( frame->arg[0] ) && integerp( frame->arg[1] ) ) {
result = make_integer(arg0.payload.integer.value - arg1.payload.integer.value);
result =
make_integer( arg0.payload.integer.value -
arg1.payload.integer.value );
} else if ( realp( frame->arg[0] ) && realp( frame->arg[1] ) ) {
result = make_real(arg0.payload.real.value - arg1.payload.real.value);
result =
make_real( arg0.payload.real.value - arg1.payload.real.value );
} else if ( integerp( frame->arg[0] ) && realp( frame->arg[1] ) ) {
result = make_real( numeric_value(frame->arg[0]) - arg1.payload.real.value);
result =
make_real( numeric_value( frame->arg[0] ) -
arg1.payload.real.value );
} else if ( realp( frame->arg[0] ) && integerp( frame->arg[1] ) ) {
result = make_real( arg0.payload.real.value - numeric_value(frame->arg[0]));
result =
make_real( arg0.payload.real.value -
numeric_value( frame->arg[0] ) );
} // else we have an error!
// and if not nilp[frame->arg[2]) we also have an error.
return result;
}

2
src/peano.h
View file

@ -46,6 +46,4 @@ lisp_subtract(struct stack_frame *frame, struct cons_pointer env);
#ifdef __cplusplus
}
#endif
#endif /* PEANO_H */