Fix eq? on characters in irregex-utils

ashinn · Jul 27, 2019 · 0b4596e · 0b4596e
1 parent e0d4ba8
commit 0b4596e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/irregex-utils.scm b/irregex-utils.scm
@@ -121,10 +121,10 @@
            (display "]" out))
           ((- & / ~)
            (cond
-            ((or (eq? #\~ (car x))
+            ((or (eqv? #\~ (car x))
                  (and (eq? '- (car x)) (pair? (cdr x)) (eq? 'any (cadr x))))
              (display "[^" out)
-             (display (cset->string (if (eq? #\~ (car x)) (cdr x) (cddr x))) out)
+             (display (cset->string (if (eqv? #\~ (car x)) (cdr x) (cddr x))) out)
              (display "]" out))
             (else
              (lp `(cset ,@(sre->cset x))))))