11 lines
		
	
	
		
			442 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			11 lines
		
	
	
		
			442 B
		
	
	
	
		
			Factor
		
	
	
USING: compiler.codegen.relocation help.markup help.syntax strings ;
 | 
						|
IN: compiler.codegen.labels
 | 
						|
 | 
						|
HELP: define-label
 | 
						|
{ $values { "name" string } }
 | 
						|
{ $description "Defines a new label with the given name. The " { $slot "offset" } " slot is filled in later." } ;
 | 
						|
 | 
						|
HELP: resolve-label
 | 
						|
{ $values { "label/name" { $link label } " or " { $link string } } }
 | 
						|
{ $description "Assigns the current " { $link compiled-offset } " to the given label." } ;
 |