Fixed blocks starting with extra newline when they start with a comment.

core/control_flow.nom

@@ -62,7 +62,6 @@ compile [..]
                     %when_false_expr as lua expr
                 ..)
     ..else:
-        
         #   Otherwise, need to do an anonymous inline function (yuck, too bad lua 
             doesn't have a proper ternary operator!)
             To see why this is necessary consider: (random()<.5 and false or 99)
@@ -200,7 +199,6 @@ compile [..]
     for %var in %start to %stop by %step %body
     for %var in %start to %stop via %step %body
 ..to:
-    
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
     unless (%var.type is "Var"):
         compile error at %var.source "Loop expected variable, not: %s"
@@ -246,7 +244,6 @@ test:
 
 # For-each loop (lua's "ipairs()")
 compile [for %var in %iterable %body] to:
-    
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
     unless (%var.type is "Var"):
         compile error at %var.source "Loop expected variable, not: %s"
@@ -284,7 +281,6 @@ test:
 compile [..]
     for %key = %value in %iterable %body, for %key %value in %iterable %body
 ..to:
-    
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
     unless (%key.type is "Var"):
         compile error at %key.source "Loop expected variable, not: %s"

core/operators.nom

@@ -200,8 +200,10 @@ test:
     local action [one]:
         external %calls = (%calls + 1)
         return 1
+    
     assume (0 <= (one) <= 2) or barf "Three-way chained comparison failed."
-    assume (%calls == 1) or barf "Three-way comparison evaluated middle value multiple times"
+    assume (%calls == 1) or barf ".."
+        Three-way comparison evaluated middle value multiple times
 
 parse [%x < %y < %z] as (..)
     =lua "(function(x,y,z) return x <  y and y <  z; end)(\%x,\%y,\%z)"

core/text.nom

@@ -49,6 +49,7 @@ compile [capitalized %text, %text capitalized] to (..)
 test:
     assume (("asdf" with "X" instead of "s") == "aXdf") or barf ".."
         substitution failed
+
 compile [..]
     %text with %sub instead of %patt, %text with %patt replaced by %sub
     %text s/ %patt / %sub

nomsu_compiler.lua

@@ -1104,7 +1104,7 @@ do
     elseif "Block" == _exp_0 then
       local nomsu = NomsuCode(tree.source, pop_comments(tree.source.start))
       for i, line in ipairs(tree) do
-        nomsu:append(pop_comments(line.source.start, '\n'))
+        nomsu:append(pop_comments(line.source.start, i > 1 and '\n' or ''))
         local line_nomsu = recurse(line)
         nomsu:append(line_nomsu)
         if i < #tree then

nomsu_compiler.moon

@@ -698,7 +698,7 @@ with NomsuCompiler
             when "Block"
                 nomsu = NomsuCode(tree.source, pop_comments(tree.source.start))
                 for i, line in ipairs tree
-                    nomsu\append pop_comments(line.source.start, '\n')
+                    nomsu\append pop_comments(line.source.start, i > 1 and '\n' or '')
                     line_nomsu = recurse(line)
                     nomsu\append line_nomsu
                     if i < #tree

tools/find_action.nom

@@ -19,5 +19,4 @@ for %path in %files:
                     say (yellow (source lines of %t))
             
             if (%t is syntax tree):
-                for %sub in %t:
-                    recurse %t on %sub
+                for %sub in %t: recurse %t on %sub