[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)))))