diff options
| author | Bdale Garbee <bdale@gag.com> | 2017-12-11 10:16:24 -0700 |
|---|---|---|
| committer | Bdale Garbee <bdale@gag.com> | 2017-12-11 10:16:24 -0700 |
| commit | d1d98e408311c5ba18138a18f4c88448e4254626 (patch) | |
| tree | ccf9c77fdf355f51911cc77b0dcf5a241d39f77e /src/scheme/ao_scheme_eval.c | |
| parent | 2f8fce1cf6ce4bd12a836cc8ee15f4edbc95c95e (diff) | |
| parent | abb856cd66e00d739e4efb1930b5c168eaf48029 (diff) | |
Merge branch 'master' of ssh://git.gag.com/scm/git/fw/altos
Diffstat (limited to 'src/scheme/ao_scheme_eval.c')
| -rw-r--r-- | src/scheme/ao_scheme_eval.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/scheme/ao_scheme_eval.c b/src/scheme/ao_scheme_eval.c index 9b3cf63e..907ecf0b 100644 --- a/src/scheme/ao_scheme_eval.c +++ b/src/scheme/ao_scheme_eval.c @@ -108,13 +108,7 @@ ao_scheme_eval_sexpr(void) DBGI("..frame "); DBG_POLY(ao_scheme_frame_poly(ao_scheme_frame_current)); DBG("\n"); ao_scheme_v = ao_scheme_atom_get(ao_scheme_v); /* fall through */ - case AO_SCHEME_BOOL: - case AO_SCHEME_INT: - case AO_SCHEME_BIGINT: - case AO_SCHEME_FLOAT: - case AO_SCHEME_STRING: - case AO_SCHEME_BUILTIN: - case AO_SCHEME_LAMBDA: + default: ao_scheme_stack->state = eval_val; break; } |