Better way

Silimate · Jan 8, 2025 · bc74cb7 · bc74cb7
1 parent f2744f7
commit bc74cb7
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/search/Search.tcl b/search/Search.tcl
@@ -421,13 +421,10 @@ define_cmd_args "report_checks" \
 proc_redirect report_checks {
   global sta_report_unconstrained_paths
 
-  # Parse out -format in case there are no paths.
-  parse_key_args "report_checks" args keys {-format} flags {} 0
-
   parse_report_path_options "report_checks" args "full" 0
   set path_ends [find_timing_paths_cmd "report_checks" args]
   if { $path_ends == {} } {
-    if { [info exists keys(-format)] && $keys(-format) == "json" } {
+    if { $format == "json" } {
       report_line "{\"checks\" : \[\]}"
     } else {
       report_line "No paths found."
@@ -876,6 +873,7 @@ proc parse_report_path_options { cmd args_var default_format
   parse_key_args $cmd args path_options {-format -digits -fields} \
     path_options {-no_line_splits -report_sigmas} $unknown_key_is_error
 
+  upvar format format
   set format $default_format
   if [info exists path_options(-format)] {
     set format $path_options(-format)