fleet-connect   scheme

(define fleet-connect
  (lambda ()
    (if (not (defined? '*fleet-process-list*))
        (print "Error: *fleet-process-list* not defined\n")
        (begin (for-each (lambda (procinfo)
                           (ipc:connect (cadr procinfo) (car procinfo) (caddr procinfo))
                           (ipc:load (car procinfo) "libs/external/fleet-node.xtm"))
                         *fleet-process-list*)
               (fleet_connect_to_nodes (cadar *fleet-process-list*) 8080)))))