>From a66599b471fe44abd5ebca532009dbea68a8119c Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Wed, 18 Jul 2012 20:40:45 +0200
Subject: [PATCH 4/4] Fix irregex builtin "real" utility pattern to allow
 leading +/- sign.  This fixes #888 (upstream changeset
 3c51418853de)

---
 NEWS             |    1 +
 irregex-core.scm |    4 +++-
 2 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/NEWS b/NEWS
index 77e7999..01a3bf9 100644
--- a/NEWS
+++ b/NEWS
@@ -134,6 +134,7 @@
   - added "alist-update" ("data-structures" unit)
   - "irregex-replace" returns the original string instead of #f when the
     regex does not match
+  - irregex "real" built-in utility pattern now accepts a leading sign
   - added "change-directory*" ("posix" unit)
   - number parsing has been made more reliable and standards compliant
   - deprecated "none?", "always?" and "never?"
diff --git a/irregex-core.scm b/irregex-core.scm
index ebc3553..5b3e80a 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -2261,7 +2261,9 @@
 
     ;; extended library patterns
     (integer . (seq (? (or #\+ #\-)) (+ numeric)))
-    (real . (seq (+ numeric) (? #\. (+ numeric)) (? (or #\e #\E) integer)))
+    (real . (seq (? (or #\+ #\-))
+                 (+ numeric) (? #\. (+ numeric))
+                 (? (or #\e #\E) integer)))
     ;; slightly more lax than R5RS, allow ->foo, etc.
     (symbol-initial . (or alpha ("!$%&*/:<=>?^_~")))
     (symbol-subsequent . (or symbol-initial digit ("+-.@")))
-- 
1.7.9.1