find-escape-rule dup [
dup rule-start-matches? dup [
swap handle-rule-start
- delegate-end-escaped? [ not ] change
+ delegate-end-escaped? toggle
t
] [
2drop f
drop
?end-rule
process-escape? get [
- escaped? [ not ] change
+ escaped? toggle
position [ + ] change
] [ drop ] if ;