diff --git a/basis/farkup/farkup-tests.factor b/basis/farkup/farkup-tests.factor index 9120ec97f9..f136ec91d4 100644 --- a/basis/farkup/farkup-tests.factor +++ b/basis/farkup/farkup-tests.factor @@ -141,3 +141,6 @@ link-no-follow? off [ "

Factor-rific!

" ] [ "[[Factor]]-rific!" convert-farkup ] unit-test + +[ "

[ factor { 1 2 3 }]

" ] +[ "[ factor { 1 2 3 }]" convert-farkup ] unit-test diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor index ec49655d5a..37233447bc 100644 --- a/basis/farkup/farkup.factor +++ b/basis/farkup/farkup.factor @@ -38,6 +38,7 @@ TUPLE: line ; EBNF: parse-farkup nl = ("\r\n" | "\r" | "\n") => [[ drop "\n" ]] +whitespace = " " | "\t" | nl heading1 = "=" (!("=" | nl).)+ "=" => [[ second >string heading1 boa ]] @@ -133,7 +134,7 @@ line = '___' => [[ drop line new ]] -named-code = '[' (!('{' | nl | '[').)+ '{' (!("}]").)+ "}]" +named-code = '[' (!('{' | whitespace | '[').)+ '{' (!("}]").)+ "}]" => [[ [ second >string ] [ fourth >string ] bi code boa ]] simple-code