Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

ensuring parameters start with an empty cell

Browse source
This commit is contained in:
Alex Shinn 2010-09-24 08:08:36 +09:00
parent b95a7cac42
commit 0fb820a8e3
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
eval.c
View file

@ -1489,18 +1489,21 @@ sexp sexp_make_null_env_op (sexp ctx sexp_api_params(self, n), sexp version) {
sexp sexp_make_primitive_env (sexp ctx, sexp version) {
int i;
sexp_gc_var3(e, op, sym);
sexp_gc_preserve3(ctx, e, op, sym);
sexp_gc_var4(e, op, sym, name);
sexp_gc_preserve4(ctx, e, op, sym, name);
e = sexp_make_null_env(ctx, version);
for (i=0; i<(sizeof(opcodes)/sizeof(opcodes[0])); i++) {
op = sexp_copy_opcode(ctx, &opcodes[i]);
name = sexp_intern(ctx, sexp_opcode_name(op), -1);
if (sexp_opcode_opt_param_p(op) && sexp_opcode_data(op)) {
sym = sexp_intern(ctx, (char*)sexp_opcode_data(op), -1);
sexp_opcode_data(op) = sexp_env_ref(e, sym, SEXP_FALSE);
} else if (sexp_opcode_class(op) == SEXP_OPC_PARAMETER) {
sexp_opcode_data(op) = sexp_cons(ctx, name, SEXP_FALSE);
}
sexp_env_define(ctx, e, sexp_intern(ctx, sexp_opcode_name(op), -1), op);
sexp_env_define(ctx, e, name, op);
}
sexp_gc_release3(ctx);
sexp_gc_release4(ctx);
return e;
}