diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-10 00:02:00 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-10 00:02:00 -0800 |
| commit | 17fe6de833cccb6d43d0ac0ed84a4faaa3463a09 (patch) | |
| tree | c51ea265efd63b11473eaae7c816ce067b98df99 /src/scheme/ao_scheme_eval.c | |
| parent | 0d3365e2c04793cd8432c30a66881f53385a2e60 (diff) | |
altos/scheme: Add vectors
Constant time and smaller can be a feature.
Signed-off-by: Keith Packard <keithp@keithp.com>
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; } |