txon: fix for string-lines.

diff --git a/extra/txon/txon.factor b/extra/txon/txon.factor
index 8bfcd9a4533e5b9283274fd9ac3986999fe4b8f8..2575d4bb614ca8bab98edb1ec1debe2a6afbe12c 100644 (file)
--- a/extra/txon/txon.factor
+++ b/extra/txon/txon.factor
@@ -27,7 +27,8 @@ IN: txon
 DEFER: name/values
 
 : (parse-value) ( string -- values )
-    decode-value string-lines dup length 1 = [ first ] when ;
+    decode-value string-lines
+    [ "" ] [ dup length 1 = [ first ] when ] if-empty ;
 
 : parse-value ( string -- remain value )
     dup find-` [