run   xtlang


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

Implementation

(bind-func run:[void,Stream{!a}*,i64]*
  (lambda (s cnt)
    (if (or (<= cnt 0) (null? s))
        void
        (begin
          (println (scar s))
          (run (scdr s) (- cnt 1))))))


Back to Index

Similar Entries