match_file. better file list concatenating

2022-10-18 00:48:29 +02:00 · 2022-10-18 00:48:29 +02:00 · e8e9afb488
parent edd1e3a370
commit e8e9afb488
1 changed files with 1 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -4343,7 +4343,7 @@ proc sub_match_file { f {paths {}} } {
          set match_file_dir_arr($jj) 1
          # puts "********** directory $jj"
          set sub_res [sub_match_file $f $j] ;# recursive call
-          if {$sub_res != {} } {eval lappend res $sub_res}
+          if {$sub_res != {} } {set res [concat $res $sub_res]}
        }
      } else {
        set fname [file tail $j]