diff options
author | tomsmeding <tom.smeding@gmail.com> | 2019-11-26 13:46:29 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-26 13:46:29 +0100 |
commit | 5f86130930c19277fbf0ef3433cc43ab93aacf3f (patch) | |
tree | 22c11dc678a6262c44a34630076824f941193043 /tests/mutual-recursion.lisp | |
parent | 9de16e245424e62318cdce4909e33c256f585cb6 (diff) |
declare defines for top-level mutual recursion
Diffstat (limited to 'tests/mutual-recursion.lisp')
-rw-r--r-- | tests/mutual-recursion.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/mutual-recursion.lisp b/tests/mutual-recursion.lisp new file mode 100644 index 0000000..4c054ea --- /dev/null +++ b/tests/mutual-recursion.lisp @@ -0,0 +1,15 @@ +#include "stdlib.lisp" + +(declare g) + +(define f (n) + (do + (print (concat "f " (number->string n))) + (if (>= n 100) n (g (* 2 n))))) + +(define g (n) + (do + (print (concat "g " (number->string n))) + (if (>= n 100) n (f (+ n 1))))) + +(print (f 1)) |