txon: fix for string-lines.

2016-03-13 19:58:53 -07:00 · 2016-03-13 19:58:53 -07:00 · 39a341ffae
parent a3073bd15c
commit 39a341ffae
1 changed files with 2 additions and 1 deletions
--- 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-` [