diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-13 17:11:05 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-13 17:11:05 +0200 |
| commit | 05c4ff39c6a93abecd1e539dfa91132dc3dba7ad (patch) | |
| tree | f4f6d04335cd56ad50bc52a368753b77f9ed99bf /modules/language/python/module/re/compile.scm | |
| parent | bf35763d00bed87133880d9435d0014fd98ab7e5 (diff) | |
fix bug for word boundaries in re module
Diffstat (limited to 'modules/language/python/module/re/compile.scm')
| -rw-r--r-- | modules/language/python/module/re/compile.scm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index 6ed7162..e0b415b 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -150,10 +150,18 @@ ("v" (f-tag! "\v")) ("f" (f-tag! "\f")) ("A" (f-nm 0 1)) - ("b" (f-or! (f-and (f-prev 1 (f-not f-w)) f-w f-true) - (f-and (f-prev 1 f-w) (f-not f-w) f-true))) - ("B" (f-or! (f-and (f-prev 1 (f-not f-w)) (f-not f-w) f-true) - (f-and (f-prev 1 f-w) f-w f-true))) + ("b" (f-or! (f-and (f-or! (f-nm 0 1) (f-prev 1 (f-not f-w))) + (f-or! f-eof f-w) + f-true) + (f-and (f-or! (f-nm 0 1) (f-prev 1 f-w)) + (f-or! f-eof (f-not f-w)) + f-true))) + ("B" (f-or! (f-and (f-or! (f-nm 0 1) (f-prev 1 (f-not f-w))) + (f-or! f-eof (f-not f-w)) + f-true) + (f-and (f-or! (f-nm 0 1) (f-prev 1 f-w)) + (f-or! f-eof f-w) + f-true))) ("d" f-d) ("D" (f-not! f-d)) ("w" f-w) |