From e0f7e508aa612b88d2de86099176e65de4c347f6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 6 Sep 2008 19:13:48 -0500
Subject: [PATCH] fix farkup

---
 basis/farkup/farkup.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index baf2ccaba2..c029423714 100644
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -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 ;