diff options
| -rw-r--r-- | rust/spectrum.rs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/rust/spectrum.rs b/rust/spectrum.rs index 2c73281..be0d6d7 100644 --- a/rust/spectrum.rs +++ b/rust/spectrum.rs @@ -511,7 +511,12 @@ fn scheme_meaning<'a, 'b>(ast: &SchemeExpr, apply_action(&list, ctx, env), SchemeExpr::SchemeList(_) => apply_action(&list, ctx, env), - _ => Ok(SchemeExpr::SchemeNull) + SchemeExpr::SchemeIdentifier(_) => + apply_action(&list, ctx, env), + _ => { + Err(format!("unexpected head of expression: {}", + scheme_repr(&list[0]).unwrap())) + } } }, } |