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

syntax_new is a private API

This commit is contained in:
Yuichi Nishiwaki 2014-02-12 10:59:10 +09:00
parent 25ae2ef6b0
commit 3d97e7f749
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/picrin/macro.h
View File

@ -42,8 +42,6 @@ struct pic_senv *pic_null_syntactic_env(pic_state *);
struct pic_senv *pic_minimal_syntactic_env(pic_state *); struct pic_senv *pic_minimal_syntactic_env(pic_state *);
struct pic_senv *pic_core_syntactic_env(pic_state *); struct pic_senv *pic_core_syntactic_env(pic_state *);
struct pic_syntax *pic_syntax_new(pic_state *, pic_sym, struct pic_proc *, struct pic_senv *);
#if defined(__cplusplus) #if defined(__cplusplus)
} }
#endif #endif

4
src/macro.c
View File

@ -60,7 +60,7 @@ new_local_senv(pic_state *pic, pic_value formals, struct pic_senv *up)
} }
struct pic_syntax * struct pic_syntax *
pic_syntax_new(pic_state *pic, pic_sym sym, struct pic_proc *macro, struct pic_senv *mac_env) syntax_new(pic_state *pic, pic_sym sym, struct pic_proc *macro, struct pic_senv *mac_env)
{ {
struct pic_syntax *stx; struct pic_syntax *stx;
@ -153,7 +153,7 @@ defsyntax(pic_state *pic, pic_sym sym, struct pic_proc *macro, struct pic_senv *
pic_sym uniq; pic_sym uniq;
uniq = pic_gensym(pic, sym); uniq = pic_gensym(pic, sym);
stx = pic_syntax_new(pic, sym, macro, mac_env); stx = syntax_new(pic, sym, macro, mac_env);
xh_put_int(pic->lib->senv->name, sym, uniq); xh_put_int(pic->lib->senv->name, sym, uniq);
xh_put_int(pic->macros, uniq, (long)stx); xh_put_int(pic->macros, uniq, (long)stx);