kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-16 17:20:23 +03:00
Code Issues Projects Releases Wiki Activity

Test mutual recursion in let*

Browse Source
This commit is contained in:
Nicolas Boulenguez 2019-05-28 15:18:57 +02:00
parent 8c0d5c4d72
commit 8150202bed
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/step4_if_fn_do.mal
View File

@ -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