- (make-core 8000 (lambda (i n)
- (vis 'update-owner i n))))
- (make-core 8000)))
- (queues (run-mars core (install-progs core progs) iters)))
- (for-each (lambda (q)
- (print)
- (print "Final queue for " (queue-owner q) ":")
- (dump-queue q core))
- queues)
+ (make-core core-size (lambda (i n)
+ (vis 'update-owner i n))))
+ (make-core core-size)))
+ (queues (run-mars core (install-progs core progs) iters min-queue-count)))
+ (dump-queues queues core)