steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

regexp: fix up redundant code.

locals-and-roots
Doug Coleman 2016-06-23 22:01:50 -07:00
parent e1be7863fa
commit f3674c3468
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libs/regexp/regexp.factor
View File

@ -216,13 +216,18 @@ PRIVATE<
PRIVATE>
SYNTAX: \ R`` "``" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R``` "```" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R```` "````" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R[[ "]]" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R[=[ "]=]" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R(( "))" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
SYNTAX: \ R{{ "}}" parse-multiline-string lexer get parse-noblank-token <optioned-regexp> compile-next-match suffix! ;
: parse-optioned-regexp ( accum string -- accum )
parse-multiline-string lexer get
parse-noblank-token <optioned-regexp> compile-next-match
suffix! ;
SYNTAX: \ R`` "``" parse-optioned-regexp ;
SYNTAX: \ R``` "```" parse-optioned-regexp ;
SYNTAX: \ R```` "````" parse-optioned-regexp ;
SYNTAX: \ R[[ "]]" parse-optioned-regexp ;
SYNTAX: \ R[=[ "]=]" parse-optioned-regexp ;
SYNTAX: \ R(( "))" parse-optioned-regexp ;
SYNTAX: \ R{{ "}}" parse-optioned-regexp ;
USE: vocabs.loader
{ "prettyprint" "regexp" } "regexp.prettyprint" require-when