bs: remove stdlib and cleanup

1 files changed, 5 insertions, 22 deletions

diff --git a/lore/Language/Bs/Eval.hs b/lore/Language/Bs/Eval.hs
index a3232bc..290170b 100644
--- a/lore/Language/Bs/Eval.hs
+++ b/lore/Language/Bs/Eval.hs
@@ -26,7 +26,6 @@ import Language.Bs.Parser
 import Language.Bs.Primitives
 import Protolude
 import System.Directory
-import Text.Parsec
 
 funcEnv :: Map.Map T.Text Expr
 funcEnv = Map.fromList $ primEnv
@@ -75,33 +74,17 @@ fileToEvalForm filePath input = either (throw . ParseError . show )  evalBody $
 runParseTest :: T.Text -> T.Text -- for view AST
 runParseTest input = either (T.pack . show) (T.pack . show) $ readExpr input
 
-sTDLIB :: FilePath
-sTDLIB = "lore/core.scm"
-
-endOfList :: Expr -> Expr -> Expr
-endOfList (List x) expr = List $ x ++ [expr]
-endOfList n _  = throw $ TypeMismatch  "failure to get variable: " n
-
-parseWithLib :: T.Text -> T.Text -> Either ParseError Expr
-parseWithLib std inp = do
-  stdlib <- readExprFile sTDLIB std
-  expr   <- readExpr inp
-  return $ endOfList stdlib expr
-
-
 getFileContents :: FilePath -> IO T.Text
 getFileContents fname = do
   exists <- doesFileExist fname
   if exists then TIO.readFile  fname else return "File does not exist."
 
-textToEvalForm :: T.Text -> T.Text -> Eval Expr
-textToEvalForm std input = either (throw . ParseError . show ) evalBody
-  $ parseWithLib std input
+textToEvalForm :: T.Text -> Eval Expr
+textToEvalForm input = either (throw . ParseError . show ) evalBody $ readExpr input
 
 evalText :: T.Text -> IO () --REPL
 evalText textExpr = do
-  stdlib <- getFileContents sTDLIB
-  res <- runASTinEnv basicEnv $ textToEvalForm stdlib textExpr
+  res <- runASTinEnv basicEnv $ textToEvalForm textExpr
   print res
 
 getVar :: Expr ->  Eval Expr
@@ -135,9 +118,8 @@ applyFunc expr params args = bindArgsEval params args expr
 bindArgsEval :: [Expr] -> [Expr] -> Expr -> Eval Expr
 bindArgsEval params args expr = do
   Env{..} <- ask
-
   let newVars = zipWith (\a b -> (extractVar a,b)) params args
-  let (newEnv, newFenv) =  Map.partition (not . isFunc) $ Map.fromList newVars
+  let (newEnv, newFenv) = Map.partition (not . isFunc) $ Map.fromList newVars
   local (const $ Env (newEnv <> env) (newFenv <> fenv)) $ eval expr
 
 isFunc :: Expr -> Bool
@@ -150,6 +132,7 @@ eval (List [Atom "dumpEnv", x]) = do
   liftIO $ print $ toList env
   liftIO $ print $ toList fenv
   eval x
+
 eval (Numb i)   = return $ Numb i
 eval (Tape s)   = return $ Tape s
 eval (Bool b)   = return $ Bool b