! Copyright (C) 2009 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators combinators.short-circuit
-kernel kernel.private math namespaces regexp.classes
+kernel kernel.private math namespaces quotations regexp.classes
regexp.transition-tables sequences sequences.private sets
strings unicode words ;
IN: regexp.compiler
[ question>> question>quot ] [ yes>> ] [ no>> ] tri
[ (execution-quot) ] bi@
'[ 2dup @ _ _ if ]
- ] [ '[ _ execute ] ] if ;
+ ] [ 1quotation ] if ;
: execution-quot ( next-state -- quot )
dup sequence? [ first ] when