Ignore:
Timestamp:
Dec 14, 2003, 8:34:53 PM (15 years ago)
Author:
landonf
Message:

Try to use a somewhat unique name for the generated procedure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r4166 r4213  
    131131proc options_export {args} {
    132132    foreach option $args {
    133         eval "proc options::${option} \{args\} \{ \n\
     133        eval "proc options::export-${option} \{args\} \{ \n\
    134134            global ${option} PortInfo \n\
    135135            if \{\[info exists ${option}\]\} \{ \n\
     
    139139            \} \n\
    140140        \}"
    141         option_proc ${option} options::${option}
     141        option_proc ${option} options::export-${option}
    142142    }
    143143}
Note: See TracChangeset for help on using the changeset viewer.