fix bug for word boundaries in re module

diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm
index 6ed7162e1b539b38b4356fa1a2c005a76a077478..e0b415bc8b230515968c50be1a05adcf50de39d2 100644 (file)
--- 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)