Fix bug in set difference.

svn: r2170

original commit: 5fe7041f17cf06a26e9d49e2cf5e6d0a281e7bfd
tokens
Scott Owens 19 years ago
parent 75b8182044
commit 6253d8632c

@ -73,7 +73,7 @@
((_ re ...)
(char-complement (union re ...)))))
;; char-set difference
;; set difference
(define-lex-trans (sre-- stx)
(syntax-case stx ()
((_)
@ -81,7 +81,7 @@
"must have at least one argument"
stx))
((_ big-re re ...)
(syntax (intersect big-re (~ (union re) ...))))))
(syntax (& big-re (complement (union re ...)))))))
(define-lex-trans (sre-/ stx)
(syntax-case stx ()

Loading…
Cancel
Save