Forgot one place

This commit is contained in:
Jay McCarthy 2010-05-26 13:18:02 -06:00
parent c3d07af8d3
commit 28dce6996a

View File

@ -25,9 +25,9 @@
;; check-ready : -> void ;; check-ready : -> void
(define/private (check-ready) (define/private (check-ready)
(unless view (unless view
(error 'racunit "The RackUnit GUI is no longer running.")) (error 'rackunit "The RackUnit GUI is no longer running."))
(when (get-locked?) (when (get-locked?)
(error 'racunit "The RackUnit GUI is locked and not accepting tests."))) (error 'rackunit "The RackUnit GUI is locked and not accepting tests.")))
;; create-model : test suite<%>/#f -> result<%> ;; create-model : test suite<%>/#f -> result<%>
(define/public (create-model test parent) (define/public (create-model test parent)