throw exception upon syntax error.
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sat, 19 Jul 2008 10:37:41 +0000 (10:37 +0000)
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Sat, 19 Jul 2008 10:37:41 +0000 (10:37 +0000)
git-svn-id: svn://svn.berlios.de/openocd/trunk@838 b42882b7-edfa-0310-969c-e2dbd0fdcd60

src/helper/startup.tcl

index 6e5f577d7d83e4203b48b2e20914cfc106536b18..2f90911acd9ad3d52fd5c1fb6595987398712aa6 100644 (file)
@@ -120,7 +120,7 @@ proc unknown {args} {
                return [eval "$cmd_name [lrange $args 2 end]"]
        }
        # This really is an unknown command.
-       puts "Unknown command: $args"
+       return -code error "Unknown command: $args"
 }