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

Tests now pass

Browse source 
at least, all the ones that did before!
This commit is contained in:
Simon Brooke 2019-01-27 17:51:28 +00:00
parent 0e11adea1c
commit d9acb277bf
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/init.c
View file

@ -162,16 +162,16 @@ int main( int argc, char *argv[] ) {
bind_function( L"inspect", &lisp_inspect ); bind_function( L"inspect", &lisp_inspect );
bind_function( L"multiply", &lisp_multiply ); bind_function( L"multiply", &lisp_multiply );
bind_function( L"negative?", &lisp_is_negative ); bind_function( L"negative?", &lisp_is_negative );
bind_function( L"read", &lisp_read );
bind_function( L"repl", &lisp_repl );
bind_function( L"oblist", &lisp_oblist ); bind_function( L"oblist", &lisp_oblist );
bind_function( L"open", &lisp_open ); bind_function( L"open", &lisp_open );
bind_function( L"print", &lisp_print ); bind_function( L"print", &lisp_print );
bind_function( L"progn", &lisp_progn ); bind_function( L"progn", &lisp_progn );
bind_function( L"read", &lisp_read ); bind_function( L"read", &lisp_read );
bind_function( L"read_char", &lisp_read_char ); bind_function( L"read-char", &lisp_read_char );
bind_function( L"repl", &lisp_repl );
bind_function( L"reverse", &lisp_reverse ); bind_function( L"reverse", &lisp_reverse );
bind_function( L"set", &lisp_set ); bind_function( L"set", &lisp_set );
bind_function( L"slurp", &lisp_slurp );
bind_function( L"source", &lisp_source ); bind_function( L"source", &lisp_source );
bind_function( L"subtract", &lisp_subtract ); bind_function( L"subtract", &lisp_subtract );
bind_function( L"throw", &lisp_exception ); bind_function( L"throw", &lisp_exception );

4
src/io/fopen.c
View file

@ -47,6 +47,7 @@
#include <curl/curl.h> #include <curl/curl.h>
#include "debug.h"
#include "fopen.h" #include "fopen.h"
/* we use a global one for convenience */ /* we use a global one for convenience */
@ -474,6 +475,7 @@ wint_t url_fgetwc( URL_FILE * input ) {
break; break;
} }
debug_printf( DEBUG_IO, L"url_fgetwc returning %d (%C)\n", result, result);
return result; return result;
} }
@ -483,7 +485,7 @@ wint_t url_ungetwc( wint_t wc, URL_FILE * input ) {
switch ( input->type ) { switch ( input->type ) {
case CFTYPE_FILE: case CFTYPE_FILE:
fwide( input->handle.file, 1 ); /* wide characters */ fwide( input->handle.file, 1 ); /* wide characters */
result = fgetwc( input->handle.file ); /* passthrough */ result = ungetwc( wc, input->handle.file ); /* passthrough */
break; break;
case CFTYPE_CURL:{ case CFTYPE_CURL:{