emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/racket-mode 924303f241 2/3: Change bluebox test version ch


From: ELPA Syncer
Subject: [nongnu] elpa/racket-mode 924303f241 2/3: Change bluebox test version check
Date: Mon, 15 Jul 2024 13:00:45 -0400 (EDT)

branch: elpa/racket-mode
commit 924303f241edeedfeee716cb177652d5cc44ebd4
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    Change bluebox test version check
    
    Recently this has been "randomly" failing only for Racket 6.12. I
    don't have the time or inclination to figure this out, so for now I'm
    just disabling the test.
---
 racket/scribble.rkt | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/racket/scribble.rkt b/racket/scribble.rkt
index 691d495b06..d3bf46fba1 100644
--- a/racket/scribble.rkt
+++ b/racket/scribble.rkt
@@ -17,6 +17,7 @@
          scribble/tag
          setup/xref
          syntax/parse/define
+         version/utils
          "elisp.rkt")
 
 (provide binding->path+anchor
@@ -59,13 +60,13 @@
 
 ;;; Blueboxes
 
-(define racket-version-6.10? (equal? (version) "6.10"))
+(define racket-version->6.12? (version<? "6.12" (version)))
 
 (define bluebox-cache (delay (make-blueboxes-cache #t)))
 
 (define/contract (identifier->bluebox stx)
   (-> identifier? (or/c #f string?))
-  (match (and (not racket-version-6.10?)
+  (match (and racket-version->6.12?
               (xref-binding->definition-tag (force xref-promise) stx 0))
     [(? tag? tag)
      (match (fetch-blueboxes-strs tag #:blueboxes-cache (force bluebox-cache))
@@ -83,7 +84,7 @@
   ;; younger, I am choosing to ignore this, for now.
   ;;
   ;; Probably https://github.com/racket/drracket/issues/118
-  (unless racket-version-6.10?
+  (when racket-version->6.12?
     (check-equal? (identifier->bluebox #'list)
                   "(list v ...) -> list?\n  v : any/c"))
   (check-false (identifier->bluebox (datum->syntax #f (gensym)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]