Concatena en Lenguaje Scheme

Defina una función concatena que dadas dos listas devuelva otra lista resultado de la concatenación simple de las dos pasadas como parámetros. (No puede utilizarse la función append de scheme)

(define (concatena Lista1 Lista2)
(if (null? Lista1)
Lista2
(cons (car Lista1) (concatena (cdr Lista1) Lista2))))