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

support `(define (foo . args) . body)` style definition

This commit is contained in:
Yuichi Nishiwaki 2013-10-27 02:51:06 +09:00
parent 870320f3a1
commit 14dcb63c33
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/codegen.c
View File

@ -200,20 +200,32 @@ codegen(codegen_state *state, pic_value obj)
proc = pic_car(pic, obj); proc = pic_car(pic, obj);
if (pic_eq_p(pic, proc, pic->sDEFINE)) { if (pic_eq_p(pic, proc, pic->sDEFINE)) {
int idx; int idx;
pic_value var; pic_value var, val;
if (pic_length(pic, obj) != 3) { if (pic_length(pic, obj) < 3) {
pic_error(pic, "syntax error"); pic_error(pic, "syntax error");
} }
var = pic_car(pic, pic_cdr(pic, obj)); var = pic_car(pic, pic_cdr(pic, obj));
if (pic_pair_p(var)) {
val = pic_cons(pic, pic->sLAMBDA,
pic_cons(pic, pic_cdr(pic, var),
pic_cdr(pic, pic_cdr(pic, obj))));
var = pic_car(pic, var);
}
else {
if (pic_length(pic, obj) != 3) {
pic_error(pic, "syntax error");
}
val = pic_car(pic, pic_cdr(pic, pic_cdr(pic, obj)));
}
if (! pic_symbol_p(var)) { if (! pic_symbol_p(var)) {
pic_error(pic, "syntax error"); pic_error(pic, "syntax error");
} }
idx = scope_global_define(pic, pic_symbol_ptr(var)->name); idx = scope_global_define(pic, pic_symbol_ptr(var)->name);
codegen(state, pic_car(pic, pic_cdr(pic, pic_cdr(pic, obj)))); codegen(state, val);
irep->code[irep->clen].insn = OP_GSET; irep->code[irep->clen].insn = OP_GSET;
irep->code[irep->clen].u.i = idx; irep->code[irep->clen].u.i = idx;
irep->clen++; irep->clen++;