Very close to a basic REPL now.
This commit is contained in:
parent
83537391a6
commit
4efe9eab87
23 changed files with 188 additions and 84 deletions
|
|
@ -1526,7 +1526,7 @@ struct cons_pointer lisp_repl( struct stack_frame *frame,
|
|||
|
||||
struct cons_pointer prompt = c_assoc( prompt_name, new_env );
|
||||
if ( !nilp( prompt ) ) {
|
||||
print( os, prompt );
|
||||
c_print( os, prompt );
|
||||
}
|
||||
|
||||
expr = lisp_read( get_stack_frame( frame_pointer ), frame_pointer,
|
||||
|
|
@ -1541,7 +1541,7 @@ struct cons_pointer lisp_repl( struct stack_frame *frame,
|
|||
|
||||
println( os );
|
||||
|
||||
print( os, eval_form( frame, frame_pointer, expr, new_env ) );
|
||||
c_print( os, eval_form( frame, frame_pointer, expr, new_env ) );
|
||||
|
||||
dec_ref( expr );
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue