Don't load listener into deployment image
							parent
							
								
									2f3b05b108
								
							
						
					
					
						commit
						f5513877ec
					
				| 
						 | 
				
			
			@ -67,7 +67,7 @@ SYMBOL: bootstrap-time
 | 
			
		|||
    os wince? [ "windows.ce" require ] when
 | 
			
		||||
    os winnt? [ "windows.nt" require ] when
 | 
			
		||||
 | 
			
		||||
    "deploy-vocab" get [
 | 
			
		||||
    "staging" get "deploy-vocab" get or [
 | 
			
		||||
        "stage2: deployment mode" print
 | 
			
		||||
    ] [
 | 
			
		||||
        "listener" require
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -55,6 +55,8 @@ DEFER: ?make-staging-image
 | 
			
		|||
 | 
			
		||||
: staging-command-line ( profile -- flags )
 | 
			
		||||
    [
 | 
			
		||||
        "-staging" ,
 | 
			
		||||
 | 
			
		||||
        dup empty? [
 | 
			
		||||
            "-i=" my-boot-image-name append ,
 | 
			
		||||
        ] [
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue