From 98b6fdeaa3cba318c5077815a842f1baff08c262 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 31 Dec 2016 13:53:56 -0800
Subject: [PATCH] html.components: protect M\ code render* from ``f`` value.

---
 basis/html/components/components.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/html/components/components.factor b/basis/html/components/components.factor
index 256fd5950d..46872111d0 100644
--- a/basis/html/components/components.factor
+++ b/basis/html/components/components.factor
@@ -150,8 +150,11 @@ TUPLE: code mode ;
 : <code> ( -- code )
     code new ;
 
+: ?string-lines ( str/f -- seq )
+    [ { } ] [ string-lines ] if-empty ;
+
 M: code render*
-    [ string-lines ] [ drop ] [ mode>> value ] tri* htmlize-lines ;
+    [ ?string-lines ] [ drop ] [ mode>> value ] tri* htmlize-lines ;
 
 ! Farkup component
 TUPLE: farkup no-follow disable-images parsed ;