srfi-14 bug pasted by sjamaan on Wed Sep 11 12:49:48 2024

(char-set-contains? (char-set-union
                        (char-set #\& #\;)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space)) #\?)

=>

#f

but:

(char-set-contains? (char-set-union
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space)) #\?)

=>

#t

WTF added by sjamaan on Wed Sep 11 13:44:26 2024

(member #\? (char-set->list (char-set-union
                        (char-set #\& #\;)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space))))

=>

#f


But:

(member #\? (char-set->list (char-set-union
                        (char-set #\&)
                        (char-set-delete
                         (char-set-complement (string->char-set
   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
                         #\space))))

takes forever