diff --git a/extlib/benz/include/picrin/extra.h b/extlib/benz/include/picrin/extra.h index 40ef36c2..a1d51034 100644 --- a/extlib/benz/include/picrin/extra.h +++ b/extlib/benz/include/picrin/extra.h @@ -59,8 +59,8 @@ xFILE *xfopen_null(pic_state *, const char *mode); #define pic_push(pic, item, place) (place = pic_cons(pic, item, place)) #define pic_pop(pic, place) (place = pic_cdr(pic, place)) -#define pic_void(exec) pic_void_(PIC_GENSYM(ai), exec) -#define pic_void_(ai,exec) do { \ +#define pic_void(pic, exec) pic_void_(pic, PIC_GENSYM(ai), exec) +#define pic_void_(pic,ai,exec) do { \ size_t ai = pic_enter(pic); \ exec; \ pic_leave(pic, ai); \ @@ -101,8 +101,6 @@ pic_value pic_get_backtrace(pic_state *); void pic_print_error(pic_state *, xFILE *); #endif -pic_value pic_library_environment(pic_state *, const char *); - #if defined(__cplusplus) } #endif diff --git a/extlib/benz/include/picrin/private/object.h b/extlib/benz/include/picrin/private/object.h index 5088468e..d09735f1 100644 --- a/extlib/benz/include/picrin/private/object.h +++ b/extlib/benz/include/picrin/private/object.h @@ -213,6 +213,8 @@ pic_value pic_dynamic_wind(pic_state *, pic_value in, pic_value thunk, pic_value pic_value pic_dynamic_bind(pic_state *, pic_value var, pic_value val, pic_value thunk); +pic_value pic_library_environment(pic_state *, const char *); + #if defined(__cplusplus) } #endif