ipc:for-each   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

;; (ipc:for-each '("primary" "utility") 'fn-with-2-args '((12 436) (36 45)))
(define ipc:for-each
  (lambda (proc-list func . arg-lists)
    ;; poor man's destructuring(ish)
    (set! arg-lists
          (if (null? arg-lists)
              (make-list (length proc-list) '())
              (map (lambda (x) (if (list? x) x (list x)))
                   (car arg-lists))))
    (for-each (lambda (proc args)
                (apply ipc:call-async proc func args))
              proc-list
              arg-lists)))


Back to Index

Similar Entries

  • for-each    scheme
  • for-each    xtlang
  • for-each    xtlang
  • for-each    xtlang