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-` [