use `eqv?` fix for RacketCS

6 years ago · 747c760eb5
parent 253062bb9e
commit 747c760eb5
2 changed files with 2 additions and 2 deletions
--- a/br-parser-tools/br-parser-tools-lib/br-parser-tools/private-lex/re.rkt
+++ b/br-parser-tools/br-parser-tools-lib/br-parser-tools/private-lex/re.rkt
@ -172,7 +172,7 @@
        ((and (= 0 low) (or (= 0 high) (eq? z r))) e)
        ((and (= 1 low) (= 1 high)) r)
        ((and (repeatR? r)
-              (eq? (repeatR-high r) +inf.0)
+              (eqv? (repeatR-high r) +inf.0)
              (or (= 0 (repeatR-low r))
                  (= 1 (repeatR-low r))))
         (build-repeat (* low (repeatR-low r))
--- a/br-parser-tools/br-parser-tools-lib/br-parser-tools/private-lex/stx.rkt
+++ b/br-parser-tools/br-parser-tools-lib/br-parser-tools/private-lex/stx.rkt
@ -84,7 +84,7 @@
                                     stx
                                     (car arg-list)))
               (unless (or (and (number? high) (exact? high) (integer? high) (>= high 0))
-                           (eq? high +inf.0))
+                           (eqv? high +inf.0))
                 (raise-syntax-error #f
                                     "not a non-negative exact integer or +inf.0"
                                     stx