Don't load listener into deployment image

db4
Slava Pestov 2008-11-22 19:58:05 -06:00
parent 2f3b05b108
commit f5513877ec
2 changed files with 3 additions and 1 deletions

View File

@ -67,7 +67,7 @@ SYMBOL: bootstrap-time
os wince? [ "windows.ce" require ] when os wince? [ "windows.ce" require ] when
os winnt? [ "windows.nt" require ] when os winnt? [ "windows.nt" require ] when
"deploy-vocab" get [ "staging" get "deploy-vocab" get or [
"stage2: deployment mode" print "stage2: deployment mode" print
] [ ] [
"listener" require "listener" require

View File

@ -55,6 +55,8 @@ DEFER: ?make-staging-image
: staging-command-line ( profile -- flags ) : staging-command-line ( profile -- flags )
[ [
"-staging" ,
dup empty? [ dup empty? [
"-i=" my-boot-image-name append , "-i=" my-boot-image-name append ,
] [ ] [