-! Copyright (C) 2006, 2008 Slava Pestov.
+! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: fry accessors sequences parser kernel help help.markup
 help.topics words strings classes tools.vocabs namespaces make

        ]
    } 2|| [ "$values don't match stack effect" throw ] unless ;

: check-see-also ( element -- )
    \ $see-also swap elements [
        rest dup prune [ length ] bi@ assert=

        dup '[
            _ dup word-help
            [ check-values ]
            [ nip [ check-nulls ] [ check-see-also ] [ check-markup ] tri ] 2bi
        ] check-something
    ] [ drop ] if ;

: check-words ( words -- ) [ check-word ] each ;

: check-article-title ( article -- )
    article-title first LETTER?
    [ "Article title must begin with a capital letter" throw ] unless ;

: check-article ( article -- )
    [ with-interactive-vocabs ] vocabs-quot set
    dup '[
        _
        [ check-article-title ]
        [ article-content check-markup ] bi
    ] check-something ;

: files>vocabs ( -- assoc )
    vocabs
