schmeify: improve determinism by ordering lifted procedures

racket/src/schemify/lift.rkt

@@ -620,6 +620,7 @@
   ;; Create bindings for lifted functions, adding new arguments
   ;; as the functions are lifted
   (define (extract-lifted-bindings lifts empties)
+    (define bindings
       (for/list ([(f proc) (in-hash lifts)]
                  #:when (liftable? proc))
         (let* ([new-args (liftable-frees proc)]
@@ -636,7 +637,8 @@
                                                    [body (in-list bodys)])
                                           (let ([body (convert-lifted-calls-in-seq/box-mutated body args lifts frees empties)])
                                             `[,(append new-args args) . ,body]))))])])))
-
+    ;; Improve determinsism:
+    (sort bindings symbol<? #:key car))
 
   ;; ----------------------------------------
   ;; Helpers