! Copyright (C) 2008, 2009 Doug Coleman, Daniel Ehrenberg.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators
combinators.short-circuit interval-maps kernel math.parser
multiline peg.ebnf regexp.ast regexp.classes sequences sets
simple-category-table at <category-class>
] }
{ [ "script=" ?head ] [
- dup simple-script-table at
+ [ simple-script-table at ]
[ <script-class> ]
[ "script=" prepend bad-class ] ?if
] }
} cond ;
: unicode-class ( name -- class )
- dup parse-unicode-class [ ] [ bad-class ] ?if ;
+ [ parse-unicode-class ] [ bad-class ] ?unless ;
: name>class ( name -- class )
>string simple {
ERROR: nonexistent-option name ;
: ch>option ( ch -- singleton )
- dup options-assoc at [ ] [ nonexistent-option ] ?if ;
+ [ options-assoc at ] [ nonexistent-option ] ?unless ;
: option>ch ( option -- string )
options-assoc value-at ;