From 3ef6ec4bd3314efcac2504bd3a25e380d5e9514f Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Fri, 9 Oct 2020 12:28:15 +0530
Subject: add experimental floating point handling

---
 src/Evaluator.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Evaluator.hs')

diff --git a/src/Evaluator.hs b/src/Evaluator.hs
index 28ee79b..c8d8d34 100644
--- a/src/Evaluator.hs
+++ b/src/Evaluator.hs
@@ -19,6 +19,7 @@ eval :: Expr -> LispResult Expr
 eval v@(StringLiteral s)     = return v
 eval v@(IntLiteral i)        = return v
 eval v@(BoolLiteral b)       = return v
+eval v@(FloatLiteral f)      = return v
 -- handle quotes as literals
 eval (List[Id "quote", val]) = return val
 eval (List (Id fn : args))   = mapM eval args >>= apply fn
-- 
cgit v1.2.3