Add a stub in the evaluator for operators

This commit is contained in:
John Wiegley 2014-07-04 02:06:27 -05:00
parent d9dfbcbd5a
commit 2a931e52e1
1 changed files with 1 additions and 0 deletions

View File

@ -31,6 +31,7 @@ evalExpr = cata phi
where
phi :: NExprF (NValue -> IO NValue) -> NValue -> IO NValue
phi (NConstant x) = const $ return $ Fix $ NVConstant x
phi (NOper _x) = error "Operators are not yet defined"
phi (NList l) = \env ->
Fix . NVList <$> mapM ($ env) l