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

Fix build bugs

Browse source
This commit is contained in:
Simon Brooke 2017-09-25 13:34:46 +01:00
parent 832ae3be0d
commit 77393b70ad
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/consspaceobject.c
View file

@ -204,7 +204,7 @@ struct cons_pointer make_symbol( wint_t c, struct cons_pointer tail ) {
*/ */
struct cons_pointer struct cons_pointer
make_special( struct cons_pointer src, struct cons_pointer ( *executable ) make_special( struct cons_pointer src, struct cons_pointer ( *executable )
( struct struct stack_frame * frame, ( struct stack_frame * frame,
struct cons_pointer env ) ) { struct cons_pointer env ) ) {
struct cons_pointer pointer = allocate_cell( SPECIALTAG ); struct cons_pointer pointer = allocate_cell( SPECIALTAG );
struct cons_space_object *cell = &pointer2cell( pointer ); struct cons_space_object *cell = &pointer2cell( pointer );

5
src/consspaceobject.h
View file

@ -425,9 +425,8 @@ struct cons_pointer make_function( struct cons_pointer src,
*/ */
struct cons_pointer make_special( struct cons_pointer src, struct cons_pointer make_special( struct cons_pointer src,
struct cons_pointer ( *executable ) struct cons_pointer ( *executable )
( struct cons_pointer s_expr, ( struct stack_frame * frame,
struct cons_pointer env, struct cons_pointer env ) );
struct stack_frame * frame ) );
/** /**
* Construct a string from this character and this tail. A string is * Construct a string from this character and this tail. A string is

3
src/repl.c
View file

@ -13,6 +13,7 @@
#include "lispops.h" #include "lispops.h"
#include "read.h" #include "read.h"
#include "print.h" #include "print.h"
#include "stack.h"
/** /**
* The read/eval/print loop * The read/eval/print loop
@ -33,7 +34,7 @@ repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
input.offset ); input.offset );
print( error_stream, input ); print( error_stream, input );
struct stack_frame *frame = make_empty_frame( NIL, oblist ); struct stack_frame *frame = make_empty_frame( NULL, oblist );
frame->arg[0] = input; frame->arg[0] = input;
struct cons_pointer value = lisp_eval( frame, oblist ); struct cons_pointer value = lisp_eval( frame, oblist );
free_stack_frame( frame ); free_stack_frame( frame );