1 files changed, 1 insertions, 0 deletions
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

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
19	eval v@(StringLiteral s) = return v	19	eval v@(StringLiteral s) = return v
20	eval v@(IntLiteral i) = return v	20	eval v@(IntLiteral i) = return v
21	eval v@(BoolLiteral b) = return v	21	eval v@(BoolLiteral b) = return v
		22	eval v@(FloatLiteral f) = return v
22	-- handle quotes as literals	23	-- handle quotes as literals
23	eval (List[Id "quote", val]) = return val	24	eval (List[Id "quote", val]) = return val
24	eval (List (Id fn : args)) = mapM eval args >>= apply fn	25	eval (List (Id fn : args)) = mapM eval args >>= apply fn