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

ENDLIBRARY requires a trailing semicolon

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 07:26:43 -08:00
parent 6958730fa4
commit 76f5cbf0b3
6 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
include/picrin.h
View File

@ -128,13 +128,15 @@ struct pic_lib *pic_make_library(pic_state *, pic_value);
struct pic_lib *pic_find_library(pic_state *, pic_value);
#define DEFLIBRARY(pic,name) \
{ \
do { \
struct pic_lib *lib__ = pic->lib; \
pic_make_library(pic, pic_parse(pic, name)); \
pic_in_library(pic, pic_parse(pic, name));
pic_in_library(pic, pic_parse(pic, name)); \
do
#define ENDLIBRARY(pic) \
while (0); \
pic->lib = lib__; \
}
} while (0)
void pic_export(pic_state *, pic_sym);

2
src/file.c
View File

@ -114,5 +114,5 @@ pic_init_file(pic_state *pic)
pic_defun(pic, "file-exists?", pic_file_exists_p);
pic_defun(pic, "delete-file", pic_file_delete);
}
ENDLIBRARY(pic)
ENDLIBRARY(pic);
}

2
src/macro.c
View File

@ -655,5 +655,5 @@ pic_init_macro(pic_state *pic)
pic_defun(pic, "identifier?", pic_macro_identifier_p);
pic_defun(pic, "identifier=?", pic_macro_identifier_eq_p);
}
ENDLIBRARY(pic)
ENDLIBRARY(pic);
}

2
src/port.c
View File

@ -342,5 +342,5 @@ pic_init_port(pic_state *pic)
{
pic_defun(pic, "write", pic_port_write);
}
ENDLIBRARY(pic)
ENDLIBRARY(pic);
}

2
src/system.c
View File

@ -130,5 +130,5 @@ pic_init_system(pic_state *pic)
pic_defun(pic, "get-environment-variable", pic_system_getenv);
pic_defun(pic, "get-environment-variables", pic_system_getenvs);
}
ENDLIBRARY(pic)
ENDLIBRARY(pic);
}

2
src/time.c
View File

@ -43,5 +43,5 @@ pic_init_time(pic_state *pic)
pic_defun(pic, "current-jiffy", pic_current_jiffy);
pic_defun(pic, "jiffies-per-second", pic_jiffies_per_second);
}
ENDLIBRARY(pic)
ENDLIBRARY(pic);
}