@@ -337,7 +337,7 @@ reprLoop context = do
337 Just line -> do
337 Just line -> do
338 case interpretOps context line of
338 case interpretOps context line of
339 QuitResult -> return ()
339 QuitResult -> return ()
340− DisplayErrorResult err -> hPutStrLn stderr ("ERR: " ++ err)
340+ DisplayErrorResult err -> hPutStrLn stderr ("ERR: " ++ err) >> reprLoop context
341 DisplayResult out -> do
341 DisplayResult out -> do
342 putStrLn out
342 putStrLn out
343 reprLoop context
343 reprLoop context