my-test25   xtlang


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

Implementation

;; print all i64's in list
(bind-func my-test25
  (lambda (a:i64list*)
    (if (null? a)
        (begin (printf "done\n") 1)
        (begin (printf "%lld\n" (car-i64 a))
               (my-test25 (cdr-i64 a))))))


Back to Index