fix regression
This commit is contained in:
parent
889291049f
commit
dfc6fa5e77
|
@ -30,9 +30,11 @@ void pic_load_native(pic_state *pic, const char *);
|
||||||
* library
|
* library
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#if PIC_USE_LIBRARY
|
||||||
void pic_deflibrary(pic_state *, const char *lib);
|
void pic_deflibrary(pic_state *, const char *lib);
|
||||||
void pic_in_library(pic_state *, const char *lib);
|
void pic_in_library(pic_state *, const char *lib);
|
||||||
void pic_export(pic_state *, int n, ...);
|
void pic_export(pic_state *, int n, ...);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
/* for debug */
|
/* for debug */
|
||||||
|
|
|
@ -14,9 +14,6 @@ main()
|
||||||
|
|
||||||
pic = pic_open(pic_default_allocf, NULL);
|
pic = pic_open(pic_default_allocf, NULL);
|
||||||
|
|
||||||
pic_printf(pic, "~s\n", pic_funcall(pic, "compile", 1, pic_read(pic, pic_stdin(pic))));
|
|
||||||
return 0;
|
|
||||||
|
|
||||||
pic_try {
|
pic_try {
|
||||||
while (1) {
|
while (1) {
|
||||||
size_t ai = pic_enter(pic);
|
size_t ai = pic_enter(pic);
|
||||||
|
|
Loading…
Reference in New Issue