fleet-eval   scheme

(define fleet-eval
  (lambda (form)
    (cond ((not (defined? '*fleet-process-list*))
           (print "Error: *fleet-process-list* not defined\n"))
          (else
           (for-each (lambda (procinfo)
                       (ipc:eval-string (car procinfo)
                                        (if (string? form)
                                            form
                                            (sexpr->string form))))
                     *fleet-process-list*)))))