From 39a341ffaea3b3addf4e12a07d801115cce4dbb6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 13 Mar 2016 19:58:53 -0700 Subject: [PATCH] txon: fix for string-lines. --- extra/txon/txon.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/txon/txon.factor b/extra/txon/txon.factor index 8bfcd9a453..2575d4bb61 100644 --- 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-` [ -- 2.34.1