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

Ratio arithmetic separated out into its own files.

Browse source
This commit is contained in:
Simon Brooke 2018-12-24 20:31:20 +00:00
parent a5e1d3ccd8
commit ad9b1cd7f8
8 changed files with 393 additions and 230 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ops/lispops.c
View file

@ -129,8 +129,7 @@ lisp_oblist( struct stack_frame *frame, struct cons_pointer env ) {
* used to construct the body for `lambda` and `nlambda` expressions.
*/
struct cons_pointer compose_body( struct stack_frame *frame ) {
struct cons_pointer body =
!nilp( frame->arg[args_in_frame - 1] ) ? frame->more : NIL;
struct cons_pointer body = frame->more;
for ( int i = args_in_frame - 1; i > 0; i-- ) {
if ( !nilp( body ) ) {

1
src/ops/read.c
View file

@ -22,6 +22,7 @@
#include "intern.h"
#include "lispops.h"
#include "print.h"
#include "ratio.h"
#include "read.h"
#include "real.h"