throw exception upon syntax error.

git-svn-id: svn://svn.berlios.de/openocd/trunk@838 b42882b7-edfa-0310-969c-e2dbd0fdcd60
2008-07-19 10:37:41 +00:00 · 2008-07-19 10:37:41 +00:00 · 42501f0ef0
parent b78f488d63
commit 42501f0ef0
1 changed files with 1 additions and 1 deletions
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@ -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"
 }