diff --git a/frege-interpreter-core/pom.xml b/frege-interpreter-core/pom.xml
index 8aeaaf2..d6176c9 100644
--- a/frege-interpreter-core/pom.xml
+++ b/frege-interpreter-core/pom.xml
@@ -6,7 +6,7 @@
frege
frege-interpreter
- 1.0.2
+ 1.0.3-SNAPSHOT
frege-interpreter-core
jar
diff --git a/frege-interpreter-core/src/main/frege/frege/interpreter/FregeInterpreter.fr b/frege-interpreter-core/src/main/frege/frege/interpreter/FregeInterpreter.fr
index 00f326d..d7ff90f 100644
--- a/frege-interpreter-core/src/main/frege/frege/interpreter/FregeInterpreter.fr
+++ b/frege-interpreter-core/src/main/frege/frege/interpreter/FregeInterpreter.fr
@@ -263,7 +263,7 @@ data Message = Message {pos :: Position, msgType :: MessageType, text :: String}
error txt = Message Position.null ERROR txt
hint txt = Message Position.null HINT txt
warning txt = Message Position.null WARNING txt
- fromGlobal (g :: Global) = map fromCompilerMessage g.sub.messages
+ fromGlobal (g :: Global) = reverse $ map fromCompilerMessage g.sub.messages
instance Show Message where
show (Message pos INFO txt) = txt
@@ -358,7 +358,7 @@ findScriptType src = fst $ StG.run f (interpreterCompilerEnv InterpreterClassLoa
scriptTypePass src = do
g <- getST
- let tokens = filter noComment g.sub.toks.toList
+ let tokens = filter noDocComment g.sub.toks.toList
case tokens of
[] -> return SourceType.ModuleSource
(Token{tokid=PACKAGE}) : _ -> return SourceType.ModuleSource
@@ -368,7 +368,7 @@ scriptTypePass src = do
then return SourceType.ExpressionSource
else return SourceType.DefinitionsSource
-noComment Token{tokid} = tokid != COMMENT && tokid != DOCUMENTATION
+noDocComment Token{tokid} = tokid != COMMENT && tokid != DOCUMENTATION
moduleDeclScript moduleName = "module " ++ moduleName ++ " where"
variableDeclScript varName script = varName ++ " = \n" ++ (indent 2 script)
@@ -561,7 +561,7 @@ getSymbols tab = (sortBy positionAndName • filter wanted • values) tab
iparsePass f = do
g <- getST
- let tokens = (filter noComment g.sub.toks.toList)
+ let tokens = filter Token.noComment g.sub.toks.toList
result <- Parse.pass tokens
case result of
Just (GUtil.Program.Module (packname, defs, doc)) -> do
@@ -589,7 +589,7 @@ expressionPass src = do
if g.errors != 0
then return false
else do
- let tokens = filter noComment g.sub.toks.toList
+ let tokens = filter noDocComment g.sub.toks.toList
result <- Parse.pass tokens
g <- getST
return $ g.errors == 0
diff --git a/frege-interpreter-java-support/pom.xml b/frege-interpreter-java-support/pom.xml
index a2a0aa3..74b42eb 100644
--- a/frege-interpreter-java-support/pom.xml
+++ b/frege-interpreter-java-support/pom.xml
@@ -4,7 +4,7 @@
frege
frege-interpreter
- 1.0.2
+ 1.0.3-SNAPSHOT
frege-interpreter-java-support
jar
diff --git a/frege-script-engine/pom.xml b/frege-script-engine/pom.xml
index f3ade00..48b2969 100644
--- a/frege-script-engine/pom.xml
+++ b/frege-script-engine/pom.xml
@@ -6,7 +6,7 @@
frege
frege-interpreter
- 1.0.2
+ 1.0.3-SNAPSHOT
frege
frege-script-engine
diff --git a/pom.xml b/pom.xml
index 9bf054a..b401267 100644
--- a/pom.xml
+++ b/pom.xml
@@ -5,7 +5,7 @@
frege
frege-interpreter
pom
- 1.0.2
+ 1.0.3-SNAPSHOT
frege-interpreter
https://github.com/Frege/frege-interpreter