20 lines
651 B
Scheme
20 lines
651 B
Scheme
#lang scheme/base
|
|
|
|
(provide current-run-status-box set-run-status
|
|
current-messenger message)
|
|
|
|
;; current-run-status-box is used to let the client know where we are in the
|
|
;; submission process.
|
|
(define current-run-status-box (make-parameter #f))
|
|
|
|
;; current-messenger is a function that will send a message to the client.
|
|
(define current-messenger (make-parameter #f))
|
|
(define (message . args)
|
|
(let ([messenger (current-messenger)])
|
|
(and messenger (apply messenger args))))
|
|
|
|
;; Set the current-run-status-box and send a message.
|
|
(define (set-run-status s)
|
|
(let ([b (current-run-status-box)])
|
|
(when b (set-box! b s) (message s))))
|