Remove stack effects from HELP: declarations.

[factor.git] / basis / help / syntax / syntax.factor

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index 3bf17fdfc396fdbcace5ca5c9252459e01120ba5..eac8bc93f819cdd3cd352713553d3a87ad818776 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -5,19 +5,10 @@ effects.parser help help.topics kernel namespaces parser
 sequences vocabs vocabs.parser words ;
 IN: help.syntax
 
-<PRIVATE
-
-: check-effect ( word seq -- word seq' )
-    dup ?first effect? [
-        unclip pick stack-effect effect= [ bad-effect ] unless
-    ] when ;
-
-PRIVATE>
-
 SYNTAX: HELP:
     scan-word bootstrap-word
     [ >link save-location ]
-    [ \ ; parse-until check-effect >array swap set-word-help ]
+    [ [ \ ; parse-until >array ] dip set-word-help ]
     bi ;
 
 SYNTAX: ARTICLE: