Renamed transfer compiler and interpreter.

1 files changed, 0 insertions, 37 deletions

diff --git a/transfer/run_core.hs b/transfer/run_core.hs
deleted file mode 100644
index 0bb7f1aa8..000000000
--- a/transfer/run_core.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-import Transfer.InterpreterAPI
-import Transfer.Interpreter (prEnv)
-
-import Control.Monad (when)
-import Data.List (partition, isPrefixOf)
-import System.Environment (getArgs)
-import System.IO (isEOF)
-
-interpretLoop :: Env -> IO ()
-interpretLoop env = 
-    do
-    eof <- isEOF
-    if eof
-       then return ()
-       else do
-            line <- getLine
-            r <- evaluateString env line
-            putStrLn r
-            interpretLoop env
-
-runMain :: Env -> IO ()
-runMain env = do
-              r <- evaluateString env "main"
-              putStrLn r
-
-main :: IO ()
-main = do args <- getArgs
-          let (flags,files) = partition ("-" `isPrefixOf`) args
-          env <- case files of
-            [f] -> loadFile f
-            _   -> fail "Usage: run_core [-i] <file>"
-          when ("-v" `elem` flags) $ do
-                                     putStrLn "Top-level environment:"
-                                     putStrLn (prEnv env)
-          if "-i" `elem` flags 
-            then interpretLoop env
-            else runMain env