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

s/identifier-variable/identifier-base/g

This commit is contained in:
Yuichi Nishiwaki 2016-02-20 16:00:37 +09:00
parent fc37af43b5
commit 0f1c47c421
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/10.macro/macro.scm
View File

@ -7,7 +7,7 @@
make-identifier
identifier?
identifier=?
identifier-variable
identifier-base
identifier-environment)
;; simple macro
@ -74,7 +74,7 @@
(define (strip-syntax form)
(letrec
((unwrap (lambda (var)
(identifier-variable var)))
(identifier-base var)))
(walk (lambda (f form)
(cond
((identifier? form)

16
extlib/benz/symbol.c
View File

@ -35,15 +35,15 @@ pic_intern(pic_state *pic, pic_value str)
}
pic_value
pic_make_identifier(pic_state *pic, pic_value id, struct pic_env *env)
pic_make_identifier(pic_state *pic, pic_value base, struct pic_env *env)
{
pic_id *nid;
pic_id *id;
nid = (pic_id *)pic_obj_alloc(pic, sizeof(pic_id), PIC_TYPE_ID);
nid->u.id = pic_id_ptr(pic, id);
nid->env = env;
id = (pic_id *)pic_obj_alloc(pic, sizeof(pic_id), PIC_TYPE_ID);
id->u.id = pic_id_ptr(pic, base);
id->env = env;
return pic_obj_value(nid);
return pic_obj_value(id);
}
pic_value
@ -135,7 +135,7 @@ pic_symbol_make_identifier(pic_state *pic)
}
static pic_value
pic_symbol_identifier_variable(pic_state *pic)
pic_symbol_identifier_base(pic_state *pic)
{
pic_value id;
@ -196,6 +196,6 @@ pic_init_symbol(pic_state *pic)
pic_defun(pic, "make-identifier", pic_symbol_make_identifier);
pic_defun(pic, "identifier?", pic_symbol_identifier_p);
pic_defun(pic, "identifier=?", pic_symbol_identifier_eq_p);
pic_defun(pic, "identifier-variable", pic_symbol_identifier_variable);
pic_defun(pic, "identifier-base", pic_symbol_identifier_base);
pic_defun(pic, "identifier-environment", pic_symbol_identifier_environment);
}