From 39aaba04246dae4ce5f6a2a2489294261582adf7 Mon Sep 17 00:00:00 2001
From: bnewbold <bnewbold@robocracy.org>
Date: Mon, 25 Apr 2016 15:15:56 -0400
Subject: rust: make identifiers applicable

---
 rust/spectrum.rs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'rust')

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()))
+                }
             }
         },
     }
-- 
cgit v1.2.3