From 2608214622597dc470e597da112c716df54d5f14 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 18 Oct 2011 19:14:53 -0700
Subject: [PATCH] help.syntax: allow HELP: to have optional stack effect.

---
 basis/help/syntax/syntax.factor | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index af4b9e5e12..7f7bee1fe2 100644
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -1,13 +1,19 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays kernel parser sequences words help
-help.topics namespaces vocabs definitions compiler.units
-vocabs.parser ;
+USING: accessors arrays compiler.units definitions effects help
+help.topics kernel namespaces parser sequences vocabs
+vocabs.parser words ;
 IN: help.syntax
 
 SYNTAX: HELP:
     scan-word bootstrap-word
-    [ >link save-location ] [ [ \ ; parse-until >array ] dip set-word-help ] bi ;
+    [ >link save-location ]
+    [
+        [
+            \ ; parse-until
+            dup ?first effect? [ rest ] when >array
+        ] dip set-word-help
+    ] bi ;
 
 SYNTAX: ARTICLE:
     location [