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

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