Copiar los elementos de un Árbol Binario a una lista en InOrder

La función recibe un árbol binaro (o árbol de búsqueda binaria) y una lista. Devuelve una lista con los elementos del árbol en orden ascendente. 

Lista copiarAListaInOrder(ArBB a, Lista l){

  if(!esvacioB(a)){

          l = copiarAListaInOrder(izquierdoB(a),l);

          l = cons(raiz(a),l);

          l = PegaListas( copiarAListaInOrder(derechoB(a),l),l);

          return l;

  }else{

    return vacia();

  }

}