Much work, all I think positive, but defun still doesn't work.
This commit is contained in:
parent
efea0192f3
commit
637d78fb1b
12 changed files with 164 additions and 48 deletions
10
src/repl.c
10
src/repl.c
|
|
@ -97,10 +97,12 @@ repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
|
|||
|
||||
struct cons_pointer val = repl_eval( input );
|
||||
|
||||
/* suppress the 'end of stream' exception */
|
||||
if ( !exceptionp( val ) &&
|
||||
!feof( pointer2cell( input_stream ).payload.stream.
|
||||
stream ) ) {
|
||||
if ( feof( pointer2cell( input_stream ).payload.stream.stream ) ) {
|
||||
/* suppress the 'end of stream' exception */
|
||||
if ( !exceptionp( val ) ) {
|
||||
repl_print( output_stream, val );
|
||||
}
|
||||
} else {
|
||||
repl_print( output_stream, val );
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue