diff options
Diffstat (limited to 'src/Interpreter.hs')
| -rw-r--r-- | src/Interpreter.hs | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/src/Interpreter.hs b/src/Interpreter.hs index 6e9e770..de77fc9 100644 --- a/src/Interpreter.hs +++ b/src/Interpreter.hs @@ -65,7 +65,7 @@ letArgsToSymValPairs args = return (symbol', evaledValue) [AST { astNode = ASTSymbol "lazy" }, AST { astNode = ASTSymbol symbol' }, value'] -> do return (symbol', value') - other -> throwL (astPos $ head other) $ "let! called with invalid args " ++ show other + other -> throwL (astPos $ head other) $ "let called with invalid args " ++ show other defineUserFunction :: AST -> [AST] -> LContext LFunction defineUserFunction paramAst@AST { astNode = ASTSymbol param } exprs = return fn where @@ -139,7 +139,7 @@ evaluateFunctionDef isPure asts = do fn <- defineUserFunctionWithLetExprs params exprs return $ defAst { astNode = ASTFunction isPure fn } where - isLetAST AST { astNode = ASTFunctionCall (AST { astNode = ASTSymbol "let!" }:_) } = True + isLetAST AST { astNode = ASTFunctionCall (AST { astNode = ASTSymbol "let" }:_) } = True isLetAST _ = False asSymbol AST { astNode = ASTSymbol sym } = sym asSymbol ast = error $ "unreachable: evaluateFunctionDef asSymbol, ast: " ++ show ast @@ -179,7 +179,7 @@ evaluateLet asts = do args = tail asts d <- getDepth - when (d > 1) $ throwL (astPos letAst) $ "let! can only be called on the top level or in a function definition, current depth: " ++ show d + when (d > 1) $ throwL (astPos letAst) $ "let can only be called on the top level or in a function definition, current depth: " ++ show d (symbol, value) <- letArgsToSymValPairs args env <- getEnv @@ -187,13 +187,10 @@ evaluateLet asts = do insertThisEnv symbol value return $ letAst { astNode = ASTUnit } -evaluateEnv :: [AST] -> LContext AST -evaluateEnv asts = do +evaluateDebugEnv :: [AST] -> LContext AST +evaluateDebugEnv asts = do let envAst = head asts - d <- getDepth - when (d > 1) $ throwL (astPos envAst) $ "env! can only be called on the top level, current depth: " ++ show d - env <- getEnv let pairs = M.assocs (M.union (envThis env) (envImported env)) let longestKey = L.maximumBy (compare `on` (length . fst)) pairs $> fst @@ -208,7 +205,7 @@ evaluateImport asts = do args = tail asts d <- getDepth - when (d > 1) $ throwL (astPos importAst) $ "import! can only be called on the top level, current depth: " ++ show d + when (d > 1) $ throwL (astPos importAst) $ "import can only be called on the top level, current depth: " ++ show d config <- getConfig let initialState = LState { @@ -228,7 +225,7 @@ evaluateImport asts = do putImportedEnv $ M.union importedEnv exportedEnvMap return $ importAst { astNode = ASTUnit } - _ -> throwL (astPos importAst) $ "invalid arguments passed to import!: " ++ show args + _ -> throwL (astPos importAst) $ "invalid arguments passed to import: " ++ show args evaluateRecord :: [AST] -> LContext AST evaluateRecord asts = do @@ -236,7 +233,7 @@ evaluateRecord asts = do args = tail asts d <- getDepth - when (d > 1) $ throwL (astPos recordAst) $ "record! can only be called on the top level, current depth: " ++ show d + when (d > 1) $ throwL (astPos recordAst) $ "record can only be called on the top level, current depth: " ++ show d case args of (AST { astNode = ASTSymbol ns }:rest) -> do @@ -286,7 +283,7 @@ evaluateRecord asts = do return $ recordAst { astNode = ASTUnit } - _ -> throwL (astPos recordAst) $ "invalid arguments passed to import!: " ++ show args + _ -> throwL (astPos recordAst) $ "invalid arguments passed to import: " ++ show args where isSymbolAST AST { astNode = ASTSymbol _ } = True @@ -365,13 +362,13 @@ evaluate ast@AST { astNode = fnc@(ASTFunctionCall args@(x:_)) } = evaluateFunctionDef False args ASTSymbol "match" -> evaluateMatch args - ASTSymbol "let!" -> + ASTSymbol "let" -> evaluateLet args - ASTSymbol "env!" -> - evaluateEnv args - ASTSymbol "import!" -> + ASTSymbol "Debug/env" -> + evaluateDebugEnv args + ASTSymbol "import" -> evaluateImport args - ASTSymbol "record!" -> + ASTSymbol "record" -> evaluateRecord args _ -> evaluateUserFunction args |