From d18fe872f22e852509bbb752976671cd0a5f87de Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Jul 2015 15:07:02 -0700
Subject: [PATCH] help.markup: simplify $example slightly.

---
 basis/help/markup/markup.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 051fb8587a..5cf6a054a1 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -132,7 +132,7 @@ ALIAS: $slot $snippet
     "Examples" $heading print-element ;
 
 : $example ( element -- )
-    1 cut* [ "\n" join ] bi@ over <input> [
+    unclip-last [ "\n" join ] dip over <input> [
         [ print ] [ output-style get format ] bi*
     ] ($code) ;