address todo re: try-order

drym-org · Jan 7, 2023 · 2b8c352 · 2b8c352
1 parent 678fff9
commit 2b8c352
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/qi-sdk/profile/report.rkt b/qi-sdk/profile/report.rkt
@@ -167,8 +167,7 @@
       display-table))
 
 (program (main)
-  ;; TODO: could use try-order? with hash-keys if support is dropped for Racket 8.3
-  (define fs (~>> (env) hash-keys (sort <)))
+  (define fs (hash-keys env #t))
   (define forms-data (for/list ([f (in-list fs)])
                        (match-let ([(list name ms) ((hash-ref env f))])
                          (hash 'name name 'unit "ms" 'value ms))))