All tests passing except 'apply', which is genuinely broken; I'm not yet sure

what's wrong.
This commit is contained in:
Simon Brooke 2017-10-15 14:17:54 +01:00
parent f988147bb2
commit ba4a31c25a
7 changed files with 59 additions and 31 deletions

View file

@ -30,8 +30,7 @@ void bind_function( char *name, struct cons_pointer ( *executable )
}
void bind_special( char *name, 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 ) ) {
deep_bind( c_string_to_lisp_symbol( name ),
make_special( NIL, executable ) );
}
@ -87,6 +86,7 @@ int main( int argc, char *argv[] ) {
bind_function( "equal", &lisp_equal );
bind_function( "read", &lisp_read );
bind_function( "print", &lisp_print );
bind_function( "type", &lisp_type );
bind_function( "add", &lisp_add );
bind_function( "multiply", &lisp_multiply );