luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix proc ev and proc evo not evaluating correctly braced {...} expressions

This commit is contained in:
stefan schippers 2023-11-27 12:42:49 +01:00
parent fdc3ceefeb
commit 4e650811db
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/xschem.tcl
View File

@ -636,7 +636,8 @@ proc to_eng {args} {
## evaluate expression. if expression has errors or does not evaluate return expression as is
proc ev {args} {
if {![catch {expr $args} res]} {
set i [join $args]
if {![catch {expr $i} res]} {
return [format %.4g $res]
} else {
return $args
@ -645,7 +646,8 @@ proc ev {args} {
## evaluate expression. if expression has errors or does not evaluate return 0
proc ev0 {args} {
if {![catch {expr $args} res]} {
set i [join $args]
if {![catch {expr $i} res]} {
return [format %.4g $res]
} else {
return 0