Nassi-Scheidermann: Still having problems

[Marcelo Huerta]

Previously I reported a problem with empty rows appearing in my defined
symbols, reportedly due to errors defining certain heights. However, I'm
sure of not having the same mistake, and the problem persists in new
symbols. File compiled using Lout 3.23:

--- Cut here ---
@SysInclude { eq   }
@SysInclude { tbl  }
@SysInclude { doc }

def @NSRepeat
  left cond
  right cuerpo
{
 ||2f { @Box margin { 0p } cuerpo //0.2ve cond }
}

def @NSFor
  named varname {}
  named varfrom {}
  named varto   {}
  right x
{ @Tbl
  rule {no} margin {0c}
  aformat address@hidden r{yes} w{.2c} A | @Cell r{yes} rb{no} i{right} iv{foot}
        p {lightgray} B | @StartVSpan @Cell r{yes} C}
  bformat address@hidden @Cell rl{yes} p{lightgray} A | @HSpan | @VSpan}
  cformat address@hidden r{yes} w{.2c} A | @Cell r{yes} ra{no} i{right} iv{top}
        p {lightgray} B | @VSpan}
  {
    @Rowa
      B { @Eq {varfrom} |.2c }
      C { x }
    @Rowb
      A { |.2c @B varname address@hidden arrowleft} +2p @Font 90d @Rotate @Sym
      ellipsis }
    @Rowc
      B { @Eq {varto} |.2c }
  }
}

@Doc @Text @Begin

@CD
5c @Wide 
-0.5p @Font @HExpand @Tbl
  margin {0c} 
  rule {yes} aformat address@hidden A}
{
@Rowa A {|0.1c @Eq {a sub [i,j] <-- square } |0.1c}
@Rowa A {|0.1c @Eq {b sub [m,n] <-- square } |0.1c}
@Rowa A address@hidden varname {i} varfrom{100} varto{10000}
    @Tbl margin {0c} rule {yes} aformat address@hidden A}
    { @Rowa A {|0.1c @Eq {a sub 2 <-- square } |0.1c}
      @Rowa A {|0.1c @Eq {b sub 2 <-- square } |0.1c}
      @Rowa A address@hidden {boolean-expr} @NSRepeat -0.1p @Font @HExpand @Tbl 
          margin {0c} rule {yes} aformat address@hidden A}
          { 
            @Rowa A {|0.1c @Eq {a sub 2 <-- square } |0.1c}
            @Rowa A {|0.1c @Eq {b sub 2 <-- square } |0.1c}
          }
      }
      @Rowa A {|0.1c @Eq {a sub 2 <-- square } |0.1c}
#      @Rowa A {|0.1c @Eq {b sub 2 <-- square } |0.1c}
    }
}
@Rowa A {|0.1c @Eq {c sub 1 <-- square } |0.1c}
@Rowa A {|0.1c @Eq {d sub 1 <-- square } |0.1c}
}

@End @Text
--- Cut here ---

The line enclosing the @NSFor symbol should merge with the line below
the "b[m,n]" block, and the "a sub 2" block, the first inside the @NSFor,
shouldn't have a blank line above it. Any clues for getting rid of them?

                       o-=< Marcelo Huerta >=-o