suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug in set difference.

Browse Source 
svn: r2170
This commit is contained in:
Scott Owens 2006-02-08 16:39:29 +00:00
parent 4884ac0cab
commit 5fe7041f17
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/parser-tools/doc.txt
View File

@ -285,10 +285,9 @@ operators:
> (: re ...) concatenation
> (seq re ...) concatenation
> (& re ...) intersection
> (- re re ...) set difference
> (~ re ...) character set complement, each given regexp must match
exactly one character
> (- re re ...) character set difference, each given regexp must match
exactly one character
> (/ char-or-string ...)
character ranges, matches characters between successive
pairs of chars.

4
collects/parser-tools/lex-sre.ss
View File

@ -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 ()