Merge pull request #20 from AxelHumeau/feature/error-handling

feature(error-handling): exit when error

LobsterLang/app/Main.hs

@@ -10,11 +10,13 @@ module Main (main) where
 import Parse
 import Scope
 import System.IO (isEOF)
+import System.Exit (exitWith, ExitCode (ExitFailure))
 
 -- | Infinite loop until EOF from the user
 inputLoop :: [Scope.ScopeMb] -> IO ()
-inputLoop stack = isEOF >>= \end -> if end then print "End of Interpretation GLaDOS" else
-    getLine >>= \line -> case parseLisp line stack of
+inputLoop new = isEOF >>= \end -> if end then print "End of Interpretation GLaDOS" else
+    getLine >>= \line -> case parseLisp line new of
+        (Nothing, stack) -> (if stack == new then print "***ERROR" >> exitWith (ExitFailure 84) else inputLoop stack)
         (res, stack') -> print res >> inputLoop stack'
 
 -- | Main

foo.scm

@@ -1,4 +1,7 @@
 (define foo 21)
 (define x 5)
 (define value (* x foo))
+p
+(* value 4)
+(define value (* 4 (+ 1 2)))
 value