From b0c42f8ad5f89be748741a8dd2c17bfe1aa3d0eb Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Wed, 24 Nov 2021 14:17:53 +0200
Subject: Fix bug in reduce Application case

---
 src/main.rs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/main.rs')

diff --git a/src/main.rs b/src/main.rs
index cc37974..8ff5efc 100644
--- a/src/main.rs
+++ b/src/main.rs
@@ -11,6 +11,16 @@ mod runtime;
 #[cfg(test)]
 mod test;
 
+#[macro_export]
+macro_rules! extract_enum_value {
+    ($value:expr, $pattern:pat => $extracted_value:expr) => {
+        match $value {
+            $pattern => $extracted_value,
+            _ => panic!("extract_enum_value: Pattern doesn't match!"),
+        }
+    };
+}
+
 fn main() {
     use ast::Program;
     use pest::Parser;
-- 
cgit v1.3