All tests passing except 'apply', which is genuinely broken; I'm not yet sure
what's wrong.
This commit is contained in:
parent
f988147bb2
commit
ba4a31c25a
7 changed files with 59 additions and 31 deletions
|
|
@ -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 );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue