E' sbagliata la funzione.

Devi passare "lista *r_L" per riferimento, e quindi:

codice:
lista **r_L