svn: r8732
This commit is contained in:
John Clements 2008-02-19 21:03:04 +00:00
parent 9db13685e1
commit f851905ba1

View File

@ -7,7 +7,7 @@
;; submission process.
(define current-run-status-box (make-parameter #f))
;; current-messenget is a function that will send a message to the client.
;; 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)])