String-like-things are being created and printed correctly; bind is broken.
This commit is contained in:
parent
cf05e30540
commit
ca5671f613
8 changed files with 508 additions and 450 deletions
|
|
@ -57,6 +57,15 @@ void c_repl( ) {
|
|||
struct pso_pointer env = consp( oblist ) ? oblist : c_cons( oblist, nil );
|
||||
struct pso_pointer input_stream = c_assoc( lisp_io_in, env );
|
||||
struct pso_pointer output_stream = c_assoc( lisp_io_out, env );
|
||||
|
||||
if (!readp(input_stream)) {
|
||||
debug_print(L"Invalid read stream: ", DEBUG_IO, 0);
|
||||
debug_print_object(input_stream, DEBUG_IO, 0);
|
||||
}
|
||||
if (!writep(output_stream)) {
|
||||
debug_print(L"Invalid write stream: ", DEBUG_IO, 0);
|
||||
debug_print_object(output_stream, DEBUG_IO, 0);
|
||||
}
|
||||
|
||||
while ( readp( input_stream )
|
||||
&& !url_feof( stream_get_url_file( input_stream ) ) ) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue