From 8b2aa0fb875f3e924abf412f013fa372af6e4488 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Tue, 25 May 2021 11:05:03 +0200
Subject: [PATCH] =?UTF-8?q?preserve=3D=3F?=

---
 implementations/racket/preserves/preserves/order.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/implementations/racket/preserves/preserves/order.rkt b/implementations/racket/preserves/preserves/order.rkt
index f1d156c..da080c0 100644
--- a/implementations/racket/preserves/preserves/order.rkt
+++ b/implementations/racket/preserves/preserves/order.rkt
@@ -2,6 +2,7 @@
 
 (provide preserve-order
          preserve<?
+         preserve=?
          sorted-set-elements
          sorted-dict-entries
          sorted-dict-keys-and-values
@@ -71,6 +72,7 @@
                          [_ (datum-order a b)])]))))
 
 (define preserve<? (order-<? preserve-order))
+(define preserve=? (order-=? preserve-order))
 
 ;;---------------------------------------------------------------------------
 ;; Sorting & cached sorted items