From 31053959377ea3d94aad0b56dd5ad567cfeb292d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 28 Sep 2008 21:30:59 -0500
Subject: [PATCH] fix the farkup bug
---
basis/farkup/farkup-tests.factor | 3 +++
basis/farkup/farkup.factor | 2 +-
2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/basis/farkup/farkup-tests.factor b/basis/farkup/farkup-tests.factor
index 685b1e3a58..27911a8d13 100644
--- a/basis/farkup/farkup-tests.factor
+++ b/basis/farkup/farkup-tests.factor
@@ -154,3 +154,6 @@ link-no-follow? off
[ "\n<ul><li> a</li>\n</ul><hr/>" ]
[ "\n- a\n___" convert-farkup ] unit-test
+
+[ "<p>hello_world how are you today?\n<ul><li> hello_world how are you today?</li></ul></p>" ]
+[ "hello_world how are you today?\n- hello_world how are you today?" convert-farkup ] unit-test
diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 91863490b8..959d53c904 100644
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -117,7 +117,7 @@ paragraph = ((paragraph-item paragraph-nl-item)+ nl+ => [[ first ]]
=> [[ paragraph boa ]]
-list-item = (cell | inline-tag)*
+list-item = (cell | inline-tag | inline-delimiter)*
ordered-list-item = '#' list-item
=> [[ second list-item boa ]]