order: Make object-name on an order return the order’s name

Author: lexi-lambda

data-doc/data/scribblings/order.scrbl

@@ -101,7 +101,7 @@ than @racket[key], and the greatest key less than or equal to
 @racket[#f] is returned.
 }
 
-@defproc*[([(order [name symbol?] 
+@defproc*[([(order [name symbol?]
                    [domain-contract contract?]
                    [comparator (-> any/c any/c ordering/c)])
             (and/c order? procedure?)]
@@ -113,10 +113,11 @@ than @racket[key], and the greatest key less than or equal to
                        (lambda (x y) (<? y x))])
             (and/c order? procedure?)])]{
 
-Produces a named order object encapsulating a domain contract and a
+Produces an order object encapsulating a domain contract and a
 comparator function. If a single procedure is given, it is used
 directly as the comparator. If two or three procedures are given, they
-are used to construct the comparator.
+are used to construct the comparator. The given @racket[name] names
+the order object as returned by @racket[object-name].
 
 The @racket[domain-contract] is not applied to the comparison
 function; rather, clients of the order are advised to incorporate the
@@ -134,6 +135,10 @@ comparator.
 (string-order "abc" "acdc")
 (string-order "x" 12)
 ]
+
+@history[#:changed "1.2.1" @elem{Changed the name of an order object as
+  returned by @racket[object-name] to @racket[name] instead of
+  @racket[(object-name comparator)].}]
 }
 
 @defproc[(order? [x any/c]) boolean?]{

data-doc/info.rkt

@@ -7,7 +7,7 @@
 (define pkg-desc "documentation part of \"data\"")
 
 (define pkg-authors '(ryanc))
-(define build-deps '(["data-lib" #:version "1.2"]
+(define build-deps '(["data-lib" #:version "1.2.1"]
                      "data-enumerate-lib"
                      "racket-doc"
                      "scribble-lib"

data-lib/data/order.rkt

@@ -68,7 +68,8 @@
 ;; ============================================================
 
 (struct order (name domain-contract comparator =? <?)
-        #:property prop:procedure (struct-field-index comparator))
+  #:property prop:object-name (struct-field-index name)
+  #:property prop:procedure (struct-field-index comparator))
 
 (define order*
   (let ([order

data-lib/info.rkt

@@ -7,7 +7,7 @@
 
 (define pkg-authors '(ryanc))
 
-(define version "1.2")
+(define version "1.2.1")
 
 (define license
   '(Apache-2.0 OR MIT))

data-test/info.rkt

@@ -9,7 +9,7 @@
 (define pkg-authors '(ryanc))
 (define build-deps '("data-enumerate-lib"
                      "racket-index"
-                     ["data-lib" #:version "1.2"]
+                     ["data-lib" #:version "1.2.1"]
                      "rackunit-lib"
                      "math-lib"))
 (define update-implies '("data-lib"))