From 8efbb7000ef295dae4e2cd4a0761957fe20eb405 Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Fri, 23 Oct 2020 14:29:15 +0200 Subject: [PATCH] don't overwrite git procs with old versions --- src/smeggdrop/smeggdrop/versioned_interpreter.tcl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl index ffad728..418374b 100644 --- a/src/smeggdrop/smeggdrop/versioned_interpreter.tcl +++ b/src/smeggdrop/smeggdrop/versioned_interpreter.tcl @@ -81,14 +81,16 @@ snit::type versioned_interpreter { log "Loading interpreter state..." set script {} - lappend script [$self read_procs_from_repository] + set fn [$self path "stolen-treasure.tcl"] set ff [open $fn r] fconfigure $ff -encoding utf-8 set fuku [read $ff] set hng [split $fuku "\n"] lappend script {*}$hng + lappend script [$self read_procs_from_repository] lappend script [$self read_vars_from_repository] + # puts [join $script \n] # good luck curating this turd, I give up $interpx eval -notimeout [join $script \n]