fix farkup

db4
Doug Coleman 2008-09-06 19:13:48 -05:00
parent ad890e8a31
commit e0f7e508aa
1 changed files with 7 additions and 2 deletions

View File

@ -102,7 +102,12 @@ list = ((list-item nl)+ list-item? | list-item)
code = '[' (!('{' | nl | '[').)+ '{' (!("}]").)+ "}]"
=> [[ [ second >string ] [ fourth >string ] bi code boa ]]
stand-alone = (code | heading | list | table | paragraph | nl)*
simple-code
= "[{" (!("}]").)+ "}]"
=> [[ second f swap code boa ]]
stand-alone
= (code | simple-code | heading | list | table | paragraph | nl)*
;EBNF
@ -137,7 +142,7 @@ stand-alone = (code | heading | list | table | paragraph | nl)*
] [
escape-link
>r "<img src=\"" write write "\"" write r>
dup empty? [ drop ] [ " alt=\"" write write "\"" write ] if
[ " alt=\"" write write "\"" write ] unless-empty
"/>" write
] if ;