>> This should continue with other information starting with
>>
>> OUTPUT BUFFER:
>>
>> usw.
>
> Yes, it does. I just cut down the output to the part it shows the problem.
Tried again, it gives the context of the error, so my complain about finding
it is weaker.
Here is what it contains (you can ignore the if {0} {...} part, its some other
code I was trying).
OUTPUT BUFFER:
puts -nonewline ""
##
# Start the framework
#
if { ! [llength [info commands ::_unknown]] } {
rename ::unknown ::_unknown
}
proc ::unknown {args} {
# ... do my stuff ...
# call the original unknown proc using the code seen in man page
uplevel 1 [list ::_unknown $args]
}
mytest
if {0} {
if {[namespace exists ::Loader]} {
puts "::Loader exists: shouldn't be sourced again
"
} else {
puts "::Loader doesn't exists: must be sourced
"
}
parse [file join $LIBPATH core Loader.rvt]
set subsystems [dict create Core [file join $LIBPATH core Core.rvt]]
::Loader::add_subsystem {*}$subsystems
::Core::init pippo
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscr...@tcl.apache.org
For additional commands, e-mail: rivet-dev-h...@tcl.apache.org
