: FactorSmokeBound>smoke-binding ( alien -- object ) [ moduleName>> ] keep [ NullModuleIndex>> ] keep [ [ classes>> ] keep numClasses>> ] keep [ [ methodMaps>> ] keep numMethodMaps>> ] keep [ [ methodNames>> ] keep numMethodNames>> ] keep [ [ types>> ] keep numTypes>> ] keep [ castFn>> ] keep [ binding>> ] keep smoke>> swap >>smoke swap >>binding swap >>alien-cast-fn swap >>types swap >>method-names swap >>method-maps swap >>classes swap >>null-module-index swap >>module-name ;