Merge branch 'master' of git://factorcode.org/git/factor

2009-04-12 16:33:18 -05:00 · 2009-04-12 16:33:18 -05:00 · 11ef68180d
parent f26fccec9d 064b8b7775
commit 11ef68180d
1 changed files with 3 additions and 1 deletions
--- 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 ;