Fixing regexp parser bug: now R/ foo/5 makes an error

db4
Daniel Ehrenberg 2009-04-12 13:57:49 -05:00
parent 87e4598581
commit 541ce3aa68
1 changed files with 3 additions and 1 deletions
basis/regexp/parser

View File

@ -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 ;