无法编译TCL对象代码，不明白为什么？

Question

管理将代码缩小到下面这个，任何想法？

oo::class create RQ1_AREA_MLIMS {
   method genMethodNameForCheckModelName ( model_name } {
  return "for${model_name}Sdevv"
   }
}

我收到此消息：

wrong # args: should be "oo::class create RQ1_AREA_MLIMS ?definitionScript?"
  while executing
"oo::class create RQ1_AREA_MLIMS {
   method genMethodNameForCheckModelName ( model_name } {
     return "for${model_name}Sdevv"
   }"
(file "poca.tcl" line 1)
invoked from within

我使用Tcl 8.6
谢谢。

Answer 1

问题在于这一行：

  method genMethodNameForCheckModelName ( model_name } {

问题在于这个角色：

  method genMethodNameForCheckModelName ( model_name } {
                                        ↑

(应该是{;一般基本的Tcl语法。