remove unknown handler

[openocd.git] / src / helper / startup.tcl

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index cb5fb026205d603f9916af615e6cd1d638b7f11e..dda89c8adc6cccf09f2c427d1dff99159aae0076 100644 (file)
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -15,7 +15,7 @@ proc exit {} {
 # to discard 'handler' command output,
 proc ocd_bouncer {name args} {
        set cmd [format "ocd_%s" $name]
-       set type [eval command type $cmd $args]
+       set type [eval ocd_command type $cmd $args]
        if {$type == "native"} {
                return [eval $cmd $args]
        } else {if {$type == "simple"} {
@@ -25,7 +25,7 @@ proc ocd_bouncer {name args} {
                        set errmsg "Command handler execution failed"
                }
        } else {if {$type == "group"} {
-               catch {eval help $name $args}
+               catch {eval ocd_help $name $args}
                set errmsg [format "%s: command requires more arguments" \
                        [concat $name " " $args]]
        } else {