Merge branch 'master' of git://factorcode.org/git/factor into clean-linux-x86-32
						commit
						263f116a23
					
				| 
						 | 
					@ -3,11 +3,11 @@ compiler.tree stack-checker.errors ;
 | 
				
			||||||
IN: compiler.tree.builder
 | 
					IN: compiler.tree.builder
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: build-tree
 | 
					HELP: build-tree
 | 
				
			||||||
{ $values { "quot/word" { $or quotation word } } { "nodes" "a sequence of nodes" } }
 | 
					{ $values { "word/quot" { $or word quotation } } { "nodes" "a sequence of nodes" } }
 | 
				
			||||||
{ $description "Attempts to construct tree SSA IR from a quotation." }
 | 
					{ $description "Attempts to construct tree SSA IR from a quotation." }
 | 
				
			||||||
{ $notes "This is the first stage of the compiler." }
 | 
					{ $notes "This is the first stage of the compiler." }
 | 
				
			||||||
{ $errors "Throws an " { $link inference-error } " if stack effect inference fails." } ;
 | 
					{ $errors "Throws an " { $link inference-error } " if stack effect inference fails." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: build-sub-tree
 | 
					HELP: build-sub-tree
 | 
				
			||||||
{ $values { "#call" #call } { "quot/word" { $or quotation word } } { "nodes" { $maybe "a sequence of nodes" } } }
 | 
					{ $values { "#call" #call } { "word/quot" { $or word quotation } } { "nodes/f" { $maybe "a sequence of nodes" } } }
 | 
				
			||||||
{ $description "Attempts to construct tree SSA IR from a quotation, starting with an initial data stack of values from the call site. Outputs " { $link f } " if stack effect inference fails." } ;
 | 
					{ $description "Attempts to construct tree SSA IR from a quotation, starting with an initial data stack of values from the call site. Outputs " { $link f } " if stack effect inference fails." } ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -1,5 +1,5 @@
 | 
				
			||||||
USING: help.markup help.syntax words definitions prettyprint
 | 
					USING: help.markup help.syntax words definitions prettyprint
 | 
				
			||||||
tools.crossref.private math quotations assocs ;
 | 
					tools.crossref.private math quotations assocs kernel ;
 | 
				
			||||||
IN: tools.crossref
 | 
					IN: tools.crossref
 | 
				
			||||||
 | 
					
 | 
				
			||||||
ARTICLE: "tools.crossref" "Definition cross referencing"
 | 
					ARTICLE: "tools.crossref" "Definition cross referencing"
 | 
				
			||||||
| 
						 | 
					@ -51,7 +51,7 @@ HELP: usage.
 | 
				
			||||||
{ $examples { $code "\\ reverse usage." } } ;
 | 
					{ $examples { $code "\\ reverse usage." } } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: quot-uses
 | 
					HELP: quot-uses
 | 
				
			||||||
{ $values { "quot" quotation } { "assoc" "an assoc with words as keys" } }
 | 
					{ $values { "obj" object } { "assoc" "an assoc with words as keys" } }
 | 
				
			||||||
{ $description "Outputs a set of words referenced by the quotation and any quotations it contains." } ;
 | 
					{ $description "Outputs a set of words referenced by the quotation and any quotations it contains." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
{ usage usage. } related-words
 | 
					{ usage usage. } related-words
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -160,11 +160,13 @@ ABOUT: "words"
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: execute ( word -- )
 | 
					HELP: execute ( word -- )
 | 
				
			||||||
{ $values { "word" word } }
 | 
					{ $values { "word" word } }
 | 
				
			||||||
{ $description "Executes a word." }
 | 
					{ $description "Executes a word. Words which call execute must be inlined in order to compile when called from other words." }
 | 
				
			||||||
{ $examples
 | 
					{ $examples
 | 
				
			||||||
    { $example "USING: kernel io words ;" "IN: scratchpad" ": twice ( word -- ) dup execute execute ;\n: hello ( -- ) \"Hello\" print ;\n\\ hello twice" "Hello\nHello" }
 | 
					    { $example "USING: kernel io words ;" "IN: scratchpad" ": twice ( word -- ) dup execute execute ; inline\n: hello ( -- ) \"Hello\" print ;\n\\ hello twice" "Hello\nHello" }
 | 
				
			||||||
} ;
 | 
					} ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					{ execute POSTPONE: execute( } related-words
 | 
				
			||||||
 | 
					
 | 
				
			||||||
HELP: deferred
 | 
					HELP: deferred
 | 
				
			||||||
{ $class-description "The class of deferred words created by " { $link POSTPONE: DEFER: } "." } ;
 | 
					{ $class-description "The class of deferred words created by " { $link POSTPONE: DEFER: } "." } ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue