help.markup: require $quotation to specify stack effect.

2012-09-27 11:08:52 -07:00 · 2012-09-27 11:08:52 -07:00 · c93fd319b3
parent 1f0e2c6715
commit c93fd319b3
1 changed files with 3 additions and 2 deletions
--- 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