diff options
| -rw-r--r-- | src/helper/startup.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index fc70298d..fad7412c 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -296,4 +296,13 @@ proc production_test {} { } add_help_text production "Runs test procedure. Throws exception if procedure failed. Prints progress messages." +proc load {args} { + return [eval "load_image $args"] +} +add_help_text load "synonym to load_image" + +proc verify {args} { + return [eval "verify_image $args"] +} +add_help_text verify "synonym to verify_image" |