my-test-4   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/extempore_lang.xtm

Implementation

(bind-func my-test-4
  (lambda (a)
    (if (< a 1)
        (printf "done\n")
        (begin (printf "a: %lld\n" a)
               (my-test-4 (- a 1))))))


Back to Index