Making more vocabs use require-when
							parent
							
								
									eb060443db
								
							
						
					
					
						commit
						4af88ff9ff
					
				| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
USING: vocabs.loader vocabs kernel ;
 | 
			
		||||
IN: bootstrap.handbook
 | 
			
		||||
 | 
			
		||||
"bootstrap.help" vocab [ "help.handbook" require ] when
 | 
			
		||||
"bootstrap.help" "help.handbook" require-when
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -4,9 +4,7 @@ USING: kernel vocabs vocabs.loader sequences system ;
 | 
			
		|||
[ "bootstrap." prepend vocab ] all? [
 | 
			
		||||
    "ui.tools" require
 | 
			
		||||
 | 
			
		||||
    "ui.backend.cocoa" vocab [
 | 
			
		||||
        "ui.backend.cocoa.tools" require
 | 
			
		||||
    ] when
 | 
			
		||||
    "ui.backend.cocoa" "ui.backend.cocoa.tools" require-when
 | 
			
		||||
 | 
			
		||||
    "ui.tools.walker" require
 | 
			
		||||
] when
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -339,6 +339,4 @@ M: short-8 v*hs+
 | 
			
		|||
M: int-4 v*hs+
 | 
			
		||||
    int-4-rep [ (simd-v*hs+) ] [ call-next-method ] vv->v-op longlong-2-cast ; inline
 | 
			
		||||
 | 
			
		||||
"mirrors" vocab [
 | 
			
		||||
    "math.vectors.simd.mirrors" require
 | 
			
		||||
] when
 | 
			
		||||
"mirrors" "math.vectors.simd.mirrors" require-when
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -59,7 +59,3 @@ M: hashtable make-mirror ;
 | 
			
		|||
M: integer make-mirror drop f ;
 | 
			
		||||
M: enumerated-sequence make-mirror <enum> ;
 | 
			
		||||
M: object make-mirror <mirror> ;
 | 
			
		||||
 | 
			
		||||
"specialized-arrays" vocab [
 | 
			
		||||
    "specialized-arrays.mirrors" require
 | 
			
		||||
] when
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -33,4 +33,4 @@ SYMBOL: root
 | 
			
		|||
: with-x ( display-string quot -- )
 | 
			
		||||
    [ init-x ] dip [ close-x ] [ ] cleanup ; inline
 | 
			
		||||
 | 
			
		||||
"io.backend.unix" vocab [ "x11.io.unix" require ] when
 | 
			
		||||
"io.backend.unix" "x11.io.unix" require-when
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue