From 14ad0667bf25351e522faa7d9fbb3ff31619d92e Mon Sep 17 00:00:00 2001 From: Akshay Date: Wed, 14 Oct 2020 19:35:12 +0530 Subject: add support for vectors a --- src/Evaluator.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/Evaluator.hs') diff --git a/src/Evaluator.hs b/src/Evaluator.hs index b0171ba..8a5274f 100644 --- a/src/Evaluator.hs +++ b/src/Evaluator.hs @@ -16,10 +16,11 @@ apply fn args = maybe (lookup fn primitives) 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 +eval v@(StringLiteral s) = return v +eval v@(IntLiteral i) = return v +eval v@(BoolLiteral b) = return v +eval v@(FloatLiteral f) = return v +eval v@(Vector xs) = liftM Vector $ mapM eval xs -- handle quotes as literals eval (List[Id "quote", val]) = return val eval (List[Id "quasiquote", val]) = undefined -- cgit v1.2.3