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

16
extlib/benz/symbol.c
View File

@ -35,15 +35,15 @@ pic_intern(pic_state *pic, pic_value str)
} }
pic_value 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); id = (pic_id *)pic_obj_alloc(pic, sizeof(pic_id), PIC_TYPE_ID);
nid->u.id = pic_id_ptr(pic, id); id->u.id = pic_id_ptr(pic, base);
nid->env = env; id->env = env;
return pic_obj_value(nid); return pic_obj_value(id);
} }
pic_value pic_value
@ -135,7 +135,7 @@ pic_symbol_make_identifier(pic_state *pic)
} }
static pic_value static pic_value
pic_symbol_identifier_variable(pic_state *pic) pic_symbol_identifier_base(pic_state *pic)
{ {
pic_value id; 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, "make-identifier", pic_symbol_make_identifier);
pic_defun(pic, "identifier?", pic_symbol_identifier_p); pic_defun(pic, "identifier?", pic_symbol_identifier_p);
pic_defun(pic, "identifier=?", pic_symbol_identifier_eq_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); pic_defun(pic, "identifier-environment", pic_symbol_identifier_environment);
} }