mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
Test mutual recursion in let* without vectors, which are deferrable.
Thanks to bjh21 for spotting this inconsistency.
This commit is contained in:
parent
8150202bed
commit
8734e2eb01
@ -201,9 +201,9 @@ a
|
|||||||
|
|
||||||
|
|
||||||
;; Testing recursive function in environment.
|
;; Testing recursive function in environment.
|
||||||
(let* [cst (fn* [n] (if (= n 0) nil (cst (- n 1))))] (cst 1))
|
(let* (cst (fn* (n) (if (= n 0) nil (cst (- n 1))))) (cst 1))
|
||||||
;=>nil
|
;=>nil
|
||||||
(let* [f (fn* [n] (if (= n 0) 0 (g (- n 1)))) g (fn* [n] (f n))] (f 2))
|
(let* (f (fn* (n) (if (= n 0) 0 (g (- n 1)))) g (fn* (n) (f n))) (f 2))
|
||||||
;=>0
|
;=>0
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user