Merge branch 'master' of git://factorcode.org/git/factor
commit
8a0cbb7044
|
@ -102,8 +102,10 @@ MEMO: simple-category-table ( -- table )
|
||||||
{ CHAR: s dotall }
|
{ CHAR: s dotall }
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
ERROR: nonexistent-option name ;
|
||||||
|
|
||||||
: ch>option ( ch -- singleton )
|
: ch>option ( ch -- singleton )
|
||||||
options-assoc at ;
|
dup options-assoc at [ ] [ nonexistent-option ] ?if ;
|
||||||
|
|
||||||
: option>ch ( option -- string )
|
: option>ch ( option -- string )
|
||||||
options-assoc value-at ;
|
options-assoc value-at ;
|
||||||
|
|
Loading…
Reference in New Issue