Put farkup words in private

db4
Slava Pestov 2008-04-14 03:54:51 -05:00
parent 421085c516
commit e31f03db4a
1 changed files with 4 additions and 0 deletions

View File

@ -6,6 +6,8 @@ io.streams.string html peg.parsers html.elements sequences.deep
unicode.categories ;
IN: farkup
<PRIVATE
: delimiters ( -- string )
"*_^~%[-=|\\\n" ; inline
@ -144,6 +146,8 @@ MEMO: paragraph ( -- parser )
[ "<p>" swap "</p>" 3array ] unless
] action ;
PRIVATE>
PEG: parse-farkup ( -- parser )
[
list , table , h1 , h2 , h3 , h4 , code , paragraph , 2nl , nl ,