diff --git a/src/modules/punk/repl-999999.0a1.0.tm b/src/modules/punk/repl-999999.0a1.0.tm index 066b0a44..789e65ae 100644 --- a/src/modules/punk/repl-999999.0a1.0.tm +++ b/src/modules/punk/repl-999999.0a1.0.tm @@ -4017,55 +4017,9 @@ namespace eval repl { set ::argv0 %argv0% set ::argv %argv% set ::argc %argc% - set ::auto_path %autopath% - tcl::tm::remove {*}[tcl::tm::list] - tcl::tm::add {*}[lreverse %tmlist%] - #puts "code interp chan names-->[chan names]" - - #----------------------------------------------------------------------------- - if {[package provide punk::libunknown] eq ""} { - namespace eval ::punk::libunknown {} - set ::punk::libunknown::epoch %lib_epoch% - - apply {{} { - set libunks [list] - foreach tm_path [tcl::tm::list] { - set punkdir [file join $tm_path punk] - if {![file exists $punkdir]} {continue} - lappend libunks {*}[glob -nocomplain -dir $punkdir -type f libunknown-*.tm] - } - set libunknown "" - set libunknown_version_sofar "" - foreach lib $libunks { - #expecting to be of form libunknown-.tm - set vtail [lindex [split [file tail $lib] -] 1] - set thisver [file rootname $vtail] ;#file rootname x.y.z.tm - if {$libunknown_version_sofar eq ""} { - set libunknown_version_sofar $thisver - set libunknown $lib - } else { - if {[package vcompare $thisver $libunknown_version_sofar] == 1} { - set libunknown_version_sofar $thisver - set libunknown $lib - } - } - } - if {$libunknown ne ""} { - uplevel 1 [list ::source $libunknown] - if {[catch {punk::libunknown::init -caller "repl::init init_script code interp for punk"} errM]} { - puts stderr "error initialising punk::libunknown\n from: '$libunknown'" - puts stderr "tcl::tm::list: [tcl::tm::list]" - puts stderr "error: $errM" - } - } - }} - - } else { - puts stderr "punk::libunknown [package provide punk::libunknown] already loaded" - } - #----------------------------------------------------------------------------- - #package require punk::packagepreference - #punk::packagepreference::install + #tm list, auto_path, package prefer, and libunknown were already + #propagated by punk::lib::interp_sync_package_paths code -libunknown 1 + #at interp creation time above. # -- --- #review