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

Making sexp_env_cell_define available.

Browse source
This commit is contained in:
Alex Shinn 2013-04-07 17:08:56 +09:00
parent dcd65cc9da
commit f4b42132a3
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eval.c
View file

@ -101,8 +101,8 @@ static sexp sexp_env_undefine (sexp ctx, sexp env, sexp key) {
return SEXP_FALSE; return SEXP_FALSE;
} }
static sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key, sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key,
sexp value, sexp *varenv) { sexp value, sexp *varenv) {
sexp_gc_var2(cell, ls); sexp_gc_var2(cell, ls);
while (sexp_env_lambda(env) || sexp_env_syntactic_p(env)) while (sexp_env_lambda(env) || sexp_env_syntactic_p(env))
env = sexp_env_parent(env); env = sexp_env_parent(env);

1
include/chibi/eval.h
View file

@ -86,6 +86,7 @@ SEXP_API sexp sexp_load_op (sexp context, sexp self, sexp_sint_t n, sexp expr, s
SEXP_API sexp sexp_exception_type_op (sexp ctx, sexp self, sexp_sint_t n, sexp exn); SEXP_API sexp sexp_exception_type_op (sexp ctx, sexp self, sexp_sint_t n, sexp exn);
SEXP_API sexp sexp_make_env_op (sexp context, sexp self, sexp_sint_t n); SEXP_API sexp sexp_make_env_op (sexp context, sexp self, sexp_sint_t n);
SEXP_API sexp sexp_make_null_env_op (sexp context, sexp self, sexp_sint_t n, sexp version); SEXP_API sexp sexp_make_null_env_op (sexp context, sexp self, sexp_sint_t n, sexp version);
SEXP_API sexp sexp_env_cell_define (sexp ctx, sexp env, sexp name, sexp value, sexp* varenv);
SEXP_API sexp sexp_make_primitive_env (sexp context, sexp version); SEXP_API sexp sexp_make_primitive_env (sexp context, sexp version);
SEXP_API sexp sexp_make_standard_env_op (sexp context, sexp self, sexp_sint_t n, sexp version); SEXP_API sexp sexp_make_standard_env_op (sexp context, sexp self, sexp_sint_t n, sexp version);
SEXP_API void sexp_set_parameter (sexp ctx, sexp env, sexp name, sexp value); SEXP_API void sexp_set_parameter (sexp ctx, sexp env, sexp name, sexp value);