Things working much better now. assoc works. Currently printing of
string-like-things does not work, but I suspect that's shallow.
This commit is contained in:
parent
02a4bc3e28
commit
9a0f186f29
13 changed files with 400 additions and 38 deletions
|
|
@ -47,7 +47,7 @@ void int_handler( int dummy ) {
|
|||
/**
|
||||
* Very simple read/eval/print loop for bootstrapping.
|
||||
*/
|
||||
void c_repl( ) {
|
||||
void c_repl( bool show_prompt ) {
|
||||
signal( SIGINT, int_handler );
|
||||
debug_print( L"Entered repl\n", DEBUG_REPL, 0 );
|
||||
|
||||
|
|
@ -68,6 +68,9 @@ void c_repl( ) {
|
|||
|
||||
while ( readp( input_stream ) &&
|
||||
!url_feof( stream_get_url_file( input_stream ) ) ) {
|
||||
if ( show_prompt )
|
||||
c_princ( c_assoc( lisp_io_prompt, env ), output_stream );
|
||||
|
||||
/* bottom of stack */
|
||||
struct pso_pointer frame_pointer = make_frame( 1, nil, input_stream );
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue