From f440911e7f1bad0c20a8c7d53f299847ad087191 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 7 Dec 2016 09:47:03 +1300
Subject: [PATCH] Sort process table by PID

---
 racket/syndicate/trace/stderr.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/racket/syndicate/trace/stderr.rkt b/racket/syndicate/trace/stderr.rkt
index d00e463..dd4650a 100644
--- a/racket/syndicate/trace/stderr.rkt
+++ b/racket/syndicate/trace/stderr.rkt
@@ -2,6 +2,7 @@
 
 (provide set-stderr-trace-flags!)
 
+(require data/order)
 (require racket/set)
 (require racket/match)
 (require racket/pretty)
@@ -234,7 +235,9 @@
                                 ['SIGUSR1
                                  (with-color WHITE-ON-GREEN
                                    (output "\e[2J\e[HProcess name table:\n")
-                                   (for [((pid name) (in-hash process-names))]
+                                   (for [(pid (in-list (sort (hash-keys process-names)
+                                                             (order-<? datum-order))))]
+                                     (define name (hash-ref process-names pid))
                                      (output "\t~v\t--> ~v\n" pid name)))]
                                 ['SIGUSR2
                                  (with-color WHITE-ON-BLUE