letではなくletrecだろ？

(define (f x)
(letrec ((g (lambda (x) (* x x))))
(g (* x x))))