basis/help/syntax/syntax.factor

   1 ! Copyright (C) 2005, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors arrays kernel parser sequences words help
   4 help.topics namespaces vocabs definitions compiler.units
   5 vocabs.parser ;
   6 IN: help.syntax
   7
   8 : HELP:
   9     scan-word bootstrap-word
  10     dup set-word
  11     dup >link save-location
  12     \ ; parse-until >array swap set-word-help ; parsing
  13
  14 : ARTICLE:
  15     location [
  16         \ ; parse-until >array [ first2 ] keep 2 tail <article>
  17         over add-article >link
  18     ] dip remember-definition ; parsing
  19
  20 : ABOUT:
  21     in get vocab
  22     dup changed-definition
  23     scan-object >>help drop ; parsing