Readability

gistfile1.scala

  case class Command (name :String, callsOtherCode :Boolean)
  case class Procedure (name :String, commands :List[Command])
  case class Activation (procedure :Procedure, parent :Option[Activation], returnAddress :Int) {
    def parentCmdName :Option[String] =
      parent map(_.procedure.commands(returnAddress)) filter(_.callsOtherCode) map(_.name)
  }

  def callStack (act :Activation) :List[String] =
    List(act.procedure.name) ++ act.parentCmdName ++ act.parent.map(callStack).flatten