help.markup: simplify $example slightly.

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 051fb8587a292847a61adc9039376f2b15b0b3ce..5cf6a054a18a6fcbed1cf358efbdc7b67acf5786 100644 (file)
--- 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) ;