fix from_eng proc (meg was not handled correctly)

2025-05-29 21:09:43 +02:00 · 2025-05-29 21:09:43 +02:00 · b4283563d0
parent d123768fed
commit b4283563d0
1 changed files with 1 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -614,7 +614,7 @@ proc from_eng {i} {
  set str {}
  scan $i "%g%s" n str
  set str [string tolower $str]
-  if { [regexp {^meg} $str] } { set str {meg} } else {
+  if { [regexp {^meg} $str] } { set suffix {meg} } else {
    set suffix [string index $str 0]
  }
  set mult [switch $suffix {