add support for vectors

a

1 files changed, 5 insertions, 4 deletions

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