Fixing regexp parser bug: now R/ foo/5 makes an error
parent
87e4598581
commit
541ce3aa68
basis/regexp/parser
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue