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
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 pointer = allocate_cell( SPECIALTAG );
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 ( *executable )
( struct cons_pointer s_expr,
struct cons_pointer env,
struct stack_frame * frame ) );
( struct stack_frame * frame,
struct cons_pointer env ) );
/**
* 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 "read.h"
#include "print.h"
#include "stack.h"
/**
* The read/eval/print loop
@ -33,7 +34,7 @@ repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
input.offset );
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;
struct cons_pointer value = lisp_eval( frame, oblist );
free_stack_frame( frame );