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

reimplement macro expander in scheme

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2017-04-04 15:05:34 +09:00
parent 82939650a4
commit 463b73f11f
23 changed files with 907 additions and 1088 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/include/picrin/extra.h
-1
View File
@@ -21,7 +21,6 @@ pic_value pic_read_cstr(pic_state *, const char *);
pic_value pic_fopen(pic_state *, FILE *, const char *mode);
#endif
pic_value pic_compile(pic_state *, pic_value form, pic_value env);
pic_value pic_load(pic_state *, pic_value irep);
void pic_load_native(pic_state *pic, const char *);
lib/include/picrin/value.h
-9
View File
@@ -26,8 +26,6 @@ enum {
PIC_TYPE_BLOB = 18,
PIC_TYPE_PORT = 20,
PIC_TYPE_ERROR = 21,
PIC_TYPE_ID = 22,
PIC_TYPE_ENV = 23,
PIC_TYPE_DATA = 24,
PIC_TYPE_DICT = 25,
PIC_TYPE_WEAK = 26,
@@ -227,7 +225,6 @@ DEFPRED(pic_blob_p, PIC_TYPE_BLOB)
DEFPRED(pic_error_p, PIC_TYPE_ERROR)
DEFPRED(pic_dict_p, PIC_TYPE_DICT)
DEFPRED(pic_weak_p, PIC_TYPE_WEAK)
DEFPRED(pic_env_p, PIC_TYPE_ENV)
DEFPRED(pic_rec_p, PIC_TYPE_RECORD)
DEFPRED(pic_sym_p, PIC_TYPE_SYMBOL)
DEFPRED(pic_pair_p, PIC_TYPE_PAIR)
@@ -247,12 +244,6 @@ pic_proc_p(pic_state *pic, pic_value o)
return pic_proc_func_p(pic, o) || pic_proc_irep_p(pic, o);
}
PIC_STATIC_INLINE bool
pic_id_p(pic_state *pic, pic_value o)
{
return pic_type(pic, o) == PIC_TYPE_ID || pic_sym_p(pic, o);
}
#if PIC_NAN_BOXING
PIC_STATIC_INLINE bool