diff options
-rw-r--r-- | src/helper/startup.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index 2e2982c..e2ea27d 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -53,9 +53,9 @@ proc find {filename} { add_usage_text find "<file>" add_help_text find "print full path to file according to OpenOCD search rules" -# Run script +# Find and run a script proc script {filename} { - source [find $filename] + uplevel #0 source [find $filename] } add_help_text script "filename of OpenOCD script (tcl) to run" add_usage_text script "<file>" |