|
|
@ -2700,7 +2700,7 @@ namespace eval repl { |
|
|
|
} |
|
|
|
} |
|
|
|
proc mode args { |
|
|
|
proc mode args { |
|
|
|
thread::send %replthread% [list punk::console::mode {*}$args] |
|
|
|
thread::send %replthread% [list punk::console::mode {*}$args] |
|
|
|
interp eval code [list ::punk::console::mode {*}$args] |
|
|
|
#interp eval code [list ::punk::console::mode {*}$args] |
|
|
|
} |
|
|
|
} |
|
|
|
proc cmdtype cmd { |
|
|
|
proc cmdtype cmd { |
|
|
|
code invokehidden tcl:info:cmdtype $cmd |
|
|
|
code invokehidden tcl:info:cmdtype $cmd |
|
|
|