diff --git a/tests/step4_if_fn_do.mal b/tests/step4_if_fn_do.mal index ef798056..45654b8f 100644 --- a/tests/step4_if_fn_do.mal +++ b/tests/step4_if_fn_do.mal @@ -203,6 +203,8 @@ a ;; Testing recursive function in environment. (let* [cst (fn* [n] (if (= n 0) nil (cst (- n 1))))] (cst 1)) ;=>nil +(let* [f (fn* [n] (if (= n 0) 0 (g (- n 1)))) g (fn* [n] (f n))] (f 2)) +;=>0 ;>>> deferrable=True