gemini: cleanup pre handling.

diff --git a/extra/gemini/gemini.factor b/extra/gemini/gemini.factor
index 5cd9fca45f7e0230fcaaa900d84ef780d817341e..d3224d94d70f24b0756e0d1c214f7aa3af1907cf 100644 (file)
--- a/extra/gemini/gemini.factor
+++ b/extra/gemini/gemini.factor
@@ -170,16 +170,13 @@ SYMBOL: pre
 ! quote and link in pre tag
 
 :: gemini-line. ( base-url line -- )
-    line "```" ?head [
-        drop pre toggle
-    ] [
-        {
-            { [ pre get ] [ print ] }
-            { [ "=>" ?head ] [ base-url gemini-link. ] }
-            { [ "> " ?head ] [ gemini-quoted. ] }
-            [ 78 gemini-pad 78 wrap-string print ]
-        } cond
-    ] if ;
+    line {
+        { [ "```" ?head ] [ drop pre toggle ] }
+        { [ pre get ] [ print ] }
+        { [ "=>" ?head ] [ base-url gemini-link. ] }
+        { [ "> " ?head ] [ gemini-quoted. ] }
+        [ 78 gemini-pad 78 wrap-string print ]
+    } cond ;
 
 PRIVATE>