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

adding type check

Browse source
This commit is contained in:
Alex Shinn 2011-06-11 16:49:51 +09:00
parent 58b05c50af
commit fa599d79e8
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/ast.c
View file

@ -36,7 +36,9 @@ static void sexp_define_accessors (sexp ctx, sexp env, sexp_uint_t ctype,
}
static sexp sexp_get_env_cell (sexp ctx sexp_api_params(self, n), sexp env, sexp id) {
sexp cell = sexp_env_cell(env, id, 0);
sexp cell;
sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
cell = sexp_env_cell(env, id, 0);
while ((! cell) && sexp_synclop(id)) {
env = sexp_synclo_env(id);
id = sexp_synclo_expr(id);