fix loader bug i introduced
							parent
							
								
									6ed00241b6
								
							
						
					
					
						commit
						9695df7fbd
					
				| 
						 | 
				
			
			@ -52,17 +52,17 @@ H{ } clone root-cache set-global
 | 
			
		|||
SYMBOL: load-help?
 | 
			
		||||
 | 
			
		||||
: load-source ( vocab -- vocab )
 | 
			
		||||
    f >>source-loaded?
 | 
			
		||||
    f over set-vocab-source-loaded?
 | 
			
		||||
    [ vocab-source-path [ parse-file ] [ [ ] ] if* ] keep
 | 
			
		||||
    t >>source-loaded?
 | 
			
		||||
    t over set-vocab-source-loaded?
 | 
			
		||||
    [ [ % ] [ call ] if-bootstrapping ] dip ;
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
: load-docs ( vocab -- vocab )
 | 
			
		||||
    load-help? get [
 | 
			
		||||
        f >>docs-loaded?
 | 
			
		||||
        f over set-vocab-docs-loaded?
 | 
			
		||||
        [ vocab-docs-path [ ?run-file ] when* ] keep
 | 
			
		||||
        t >>docs-loaded?
 | 
			
		||||
        t over set-vocab-docs-loaded?
 | 
			
		||||
    ] when ;
 | 
			
		||||
 | 
			
		||||
: reload ( name -- )
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue