compiler.crosssref: rename word property
							parent
							
								
									6cc68e889e
								
							
						
					
					
						commit
						a13c2fb856
					
				| 
						 | 
				
			
			@ -24,7 +24,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
 | 
			
		|||
    [ [ drop (compiled-usages) ] { } assoc>map ] keep suffix ;
 | 
			
		||||
 | 
			
		||||
: dependencies-satisfied? ( word -- ? )
 | 
			
		||||
    "conditional-dependencies" word-prop [ satisfied? ] all? ;
 | 
			
		||||
    "dependency-checks" word-prop [ satisfied? ] all? ;
 | 
			
		||||
 | 
			
		||||
: outdated-conditional-usages ( assoc -- assocs )
 | 
			
		||||
    [
 | 
			
		||||
| 
						 | 
				
			
			@ -54,7 +54,7 @@ compiled-generic-crossref [ H{ } clone ] initialize
 | 
			
		|||
: compiled-unxref ( word -- )
 | 
			
		||||
    [ "compiled-uses" compiled-crossref (compiled-unxref) ]
 | 
			
		||||
    [ "compiled-generic-uses" compiled-generic-crossref (compiled-unxref) ]
 | 
			
		||||
    [ f "conditional-dependencies" set-word-prop ]
 | 
			
		||||
    [ f "dependency-checks" set-word-prop ]
 | 
			
		||||
    tri ;
 | 
			
		||||
 | 
			
		||||
: delete-compiled-xref ( word -- )
 | 
			
		||||
| 
						 | 
				
			
			@ -64,4 +64,4 @@ compiled-generic-crossref [ H{ } clone ] initialize
 | 
			
		|||
    tri ;
 | 
			
		||||
 | 
			
		||||
: save-conditional-dependencies ( word deps -- )
 | 
			
		||||
    >array f like "conditional-dependencies" set-word-prop ;
 | 
			
		||||
    >array f like "dependency-checks" set-word-prop ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue