recursion - このスキーム関数を末尾再帰にしない方法は?

Question

この末尾再帰の Scheme 関数を末尾再帰でなくする方法がわかりません。誰でも私を助けることができますか？

(define (foldrecl f x u)
  (if (null? x)
      u 
      (foldrecl f (cdr x) (f (car x) u))))