aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--rust/spectrum.rs7
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()))
+ }
}
},
}