module Bosl
  Compiler.class_eval do

    def on_while expression
      #puts expression.inspect
      condition , expressions = *expression
      condition = condition.first

      # this is where the while ends and both branches meet
      merge = method.source.new_block("while merge")
      # this comes after the current and beofre the merge
      start = method.source.new_block("while_start" )
      method.source.current start

      cond = process(condition)

      method.source.add_code Virtual::IsTrueBranch.new(merge)

      last = process_all(expressions).last

      # unconditionally branch to the start
      method.source.add_code Virtual::UnconditionalBranch.new(start)

      # continue execution / compiling at the merge block
      method.source.current merge
      last
    end
  end
end