Posted to tcl by stevel at Thu Sep 03 05:36:54 GMT 2009view pretty

can't read "options(-var)": no such variable
    while executing
"if {$options(-var) eq ""} {
           # no variable name supplied - use the caller's name
           upvar 3 avar rv     ;# skip some snit nesting
  ..."
    invoked from within
"$compiler eval $body"
    (procedure "Comp.Compile" line 62)
    invoked from within
"Comp.Compile type $type $body"
    (procedure "snit::type" line 2)
    invoked from within
"snit::type mktie {
    option -var ""     ;# variable name in metakit
    option -vtype S    ;# set the variable value type
    option -layout {}  ;# ..."
    (file "mktie.tcl" line 7)