10 lines
232 B
Tcl
10 lines
232 B
Tcl
source $cfPath(scan)/scan_common_1.tcl
|
|
##
|
|
# @brief Make sure that the chopper is ready before starting a scan.
|
|
proc ::scan::pre_hmm_scan_prepare {} {
|
|
if [catch {::chopper::ready?} errmsg] {
|
|
return -code error $errmsg
|
|
}
|
|
}
|
|
|