From c10a6567883489a265cd64c439e90e13a78dab3e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 27 Sep 2012 11:08:52 -0700
Subject: [PATCH] help.markup: require $quotation to specify stack effect.

---
 basis/help/markup/markup.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index cbae4bf82a..4ac9bfc387 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -372,8 +372,9 @@ M: f ($instance)
     f suffix $or ;
 
 : $quotation ( element -- )
-    { "a " { $link quotation } " with stack effect " } print-element
-    $snippet ;
+    check-first
+    { "a " { $link quotation } " with stack effect " }
+    print-element $snippet ;
 
 : values-row ( seq -- seq )
     unclip \ $snippet swap present 2array