From a1567eb4164674e3db5af8c3615cebdb1d884031 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 5 Dec 2019 17:25:51 -0700
Subject: [PATCH] schemify: repair for JIT pass

---
 racket/src/schemify/jitify.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/src/schemify/jitify.rkt b/racket/src/schemify/jitify.rkt
index 92751594ea..1a0b63f511 100644
--- a/racket/src/schemify/jitify.rkt
+++ b/racket/src/schemify/jitify.rkt
@@ -56,13 +56,14 @@
         [`(self ,m ,orig-id) orig-id]
         [`(self ,m) (extract-id m id)]
         [`,_ id]))
+    (define (id<? a b) (symbol<? (unwrap a) (unwrap b)))
     (define captures (sort
                       (hash-keys
                        ;; `extract-id` for different `id`s can produce the
                        ;; same `id`, so hash and then convert to a list
                        (for/hash ([id (in-list ids)])
                          (values (extract-id (hash-ref env id) id) #t)))
-                      symbol<?))
+                      id<?))
     (define jitted-proc
       (or (match (and name
                       (hash-ref free-vars (unwrap name) #f)