'about' now requires first
							parent
							
								
									f67ab9a689
								
							
						
					
					
						commit
						492e569b62
					
				| 
						 | 
				
			
			@ -1,10 +1,10 @@
 | 
			
		|||
! Copyright (C) 2005, 2007 Slava Pestov.
 | 
			
		||||
! Copyright (C) 2005, 2008 Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: arrays io kernel namespaces parser prettyprint sequences
 | 
			
		||||
words assocs definitions generic quotations effects
 | 
			
		||||
slots continuations tuples debugger combinators
 | 
			
		||||
vocabs help.stylesheet help.topics help.crossref help.markup
 | 
			
		||||
sorting classes ;
 | 
			
		||||
words assocs definitions generic quotations effects slots
 | 
			
		||||
continuations tuples debugger combinators vocabs help.stylesheet
 | 
			
		||||
help.topics help.crossref help.markup sorting classes
 | 
			
		||||
vocabs.loader ;
 | 
			
		||||
IN: help
 | 
			
		||||
 | 
			
		||||
GENERIC: word-help* ( word -- content )
 | 
			
		||||
| 
						 | 
				
			
			@ -96,6 +96,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
 | 
			
		|||
    article-content print-content nl ;
 | 
			
		||||
 | 
			
		||||
: about ( vocab -- )
 | 
			
		||||
    dup require
 | 
			
		||||
    dup vocab [ ] [
 | 
			
		||||
        "No such vocabulary: " swap append throw
 | 
			
		||||
    ] ?if
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue