From 541ce3aa6823f23d46e6b3aa9ccd9e38d3d2463f Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Sun, 12 Apr 2009 13:57:49 -0500
Subject: [PATCH] Fixing regexp parser bug: now R/ foo/5 makes an error
---
basis/regexp/parser/parser.factor | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/basis/regexp/parser/parser.factor b/basis/regexp/parser/parser.factor
index 9fcadc4008..70281aa798 100644
--- a/basis/regexp/parser/parser.factor
+++ b/basis/regexp/parser/parser.factor
@@ -102,8 +102,10 @@ MEMO: simple-category-table ( -- table )
{ CHAR: s dotall }
} ;
+ERROR: nonexistent-option name ;
+
: ch>option ( ch -- singleton )
- options-assoc at ;
+ dup options-assoc at [ ] [ nonexistent-option ] ?if ;
: option>ch ( option -- string )
options-assoc value-at ;