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 IN: help.syntax
   6
   7 : HELP:
   8     scan-word bootstrap-word
   9     dup set-word
  10     dup >link save-location
  11     \ ; parse-until >array swap set-word-help ; parsing
  12
  13 : ARTICLE:
  14     location >r
  15     \ ; parse-until >array [ first2 ] keep 2 tail <article>
  16     over add-article >link r> remember-definition ; parsing
  17
  18 : ABOUT:
  19     in get vocab
  20     dup changed-definition
  21     scan-object >>help drop ; parsing