simon/post-scarcity
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Spotted a bug in car of a stream, and fixed it.

Browse source
This commit is contained in:
Simon Brooke 2018-12-31 16:18:39 +00:00
parent 8fa71b13da
commit a02d286ad5
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/ops/lispops.c
View file

@ -625,6 +625,7 @@ lisp_car( struct stack_frame *frame, struct cons_pointer frame_pointer,
break; break;
case READTV: case READTV:
result = make_string( fgetwc( cell.payload.stream.stream ), NIL ); result = make_string( fgetwc( cell.payload.stream.stream ), NIL );
break;
case STRINGTV: case STRINGTV:
result = make_string( cell.payload.string.character, NIL ); result = make_string( cell.payload.string.character, NIL );
break; break;