Fix bootstrap failure on x86

library/compiler/x86/alien.factor

@@ -4,8 +4,6 @@ IN: compiler
 USING: alien arrays assembler inference kernel
 kernel-internals math memory namespaces words ;
 
-: drop-return-reg ESP swap reg-size ADD ;
-
 : %unbox ( n reg-class func -- )
     f %alien-invoke push-return-reg drop ;
 

library/compiler/x86/architecture.factor

@@ -60,6 +60,8 @@ M: float-regs push-return-reg
 
 : FLD 4 = [ FLDS ] [ FLDL ] if ;
 
+: drop-return-reg stack-reg swap reg-size ADD ;
+
 M: float-regs pop-return-reg
     stack-reg [] over reg-size FLD drop-return-reg ;