aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorbnewbold <bnewbold@robocracy.org>2016-04-25 15:15:56 -0400
committerbnewbold <bnewbold@robocracy.org>2016-04-25 15:15:56 -0400
commit39aaba04246dae4ce5f6a2a2489294261582adf7 (patch)
tree778b6d323fae47ee8a06479774a6714be6bfcca1
parenta02d6e2127b20c088c944825c0f979668cda55f2 (diff)
downloadspectrum-39aaba04246dae4ce5f6a2a2489294261582adf7.zip
spectrum-39aaba04246dae4ce5f6a2a2489294261582adf7.tar.gz
rust: make identifiers applicable
-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()))
+ }
}
},
}