conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pic_load_port -> pic_load

This commit is contained in:
Yuichi Nishiwaki 2015-07-13 08:20:07 +09:00
parent 71d1d4837d
commit 5c2cbb9e55
3 changed files with 9 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
contrib/20.r7rs/src/load.c
View File

@ -4,27 +4,20 @@
#include "picrin.h"
void
pic_load(pic_state *pic, const char *filename)
{
struct pic_port *port;
port = pic_open_file(pic, filename, PIC_PORT_IN | PIC_PORT_TEXT);
pic_load_port(pic, port);
pic_close_port(pic, port);
}
static pic_value
pic_load_load(pic_state *pic)
{
pic_value envid;
char *fn;
struct pic_port *port;
pic_get_args(pic, "z|o", &fn, &envid);
pic_load(pic, fn);
port = pic_open_file(pic, fn, PIC_PORT_IN | PIC_PORT_TEXT);
pic_load(pic, port);
pic_close_port(pic, port);
return pic_undef_value();
}

2
extlib/benz/include/picrin.h
View File

@ -179,7 +179,7 @@ const char *pic_symbol_name(pic_state *, pic_sym *);
pic_value pic_read(pic_state *, struct pic_port *);
pic_value pic_read_cstr(pic_state *, const char *);
void pic_load_port(pic_state *, struct pic_port *);
void pic_load(pic_state *, struct pic_port *);
void pic_load_cstr(pic_state *, const char *);
void pic_define(pic_state *, const char *, pic_value);

4
extlib/benz/load.c
View File

@ -5,7 +5,7 @@
#include "picrin.h"
void
pic_load_port(pic_state *pic, struct pic_port *port)
pic_load(pic_state *pic, struct pic_port *port)
{
pic_value form;
size_t ai = pic_gc_arena_preserve(pic);
@ -23,7 +23,7 @@ pic_load_cstr(pic_state *pic, const char *src)
struct pic_port *port = pic_open_input_string(pic, src);
pic_try {
pic_load_port(pic, port);
pic_load(pic, port);
}
pic_catch {
pic_close_port(pic, port);