don't overwrite git procs with old versions
This commit is contained in:
parent
54ed2ed976
commit
8efbb7000e
@ -81,14 +81,16 @@ snit::type versioned_interpreter {
|
|||||||
log "Loading interpreter state..."
|
log "Loading interpreter state..."
|
||||||
|
|
||||||
set script {}
|
set script {}
|
||||||
lappend script [$self read_procs_from_repository]
|
|
||||||
set fn [$self path "stolen-treasure.tcl"]
|
set fn [$self path "stolen-treasure.tcl"]
|
||||||
set ff [open $fn r]
|
set ff [open $fn r]
|
||||||
fconfigure $ff -encoding utf-8
|
fconfigure $ff -encoding utf-8
|
||||||
set fuku [read $ff]
|
set fuku [read $ff]
|
||||||
set hng [split $fuku "\n"]
|
set hng [split $fuku "\n"]
|
||||||
lappend script {*}$hng
|
lappend script {*}$hng
|
||||||
|
lappend script [$self read_procs_from_repository]
|
||||||
lappend script [$self read_vars_from_repository]
|
lappend script [$self read_vars_from_repository]
|
||||||
|
|
||||||
# puts [join $script \n]
|
# puts [join $script \n]
|
||||||
# good luck curating this turd, I give up
|
# good luck curating this turd, I give up
|
||||||
$interpx eval -notimeout [join $script \n]
|
$interpx eval -notimeout [join $script \n]
|
||||||
|
Loading…
x
Reference in New Issue
Block a user