factor: fix renaming bugs

db4
Doug Coleman 2015-07-20 07:54:26 -07:00
parent 2f6548d6d2
commit 329aed2366
2 changed files with 5 additions and 5 deletions

View File

@ -124,14 +124,14 @@ DEFER: ?make-staging-image
[ "invalid vocab manifest!" throw ] if
] if-empty ;
:: make-deploy-image ( vm-path image vocab config -- manifest )
:: make-deploy-image ( vm image vocab config -- manifest )
make-boot-image
config [
bootstrap-profile :> profile
vocab "vocab-manifest-" prepend temp-file :> manifest-file
image-path vocab manifest-file profile deploy-command-line :> flags
image vocab manifest-file profile deploy-command-line :> flags
profile ?make-staging-image
vm-path flags run-factor
vm flags run-factor
manifest-file parse-vocab-manifest-file
] with-variables ;

View File

@ -486,8 +486,8 @@ DEFER: [bind-uniform-tuple]
{ uniforms-cleave 2cleave } >quotation ;
:: [bind-uniforms] ( superclass uniforms -- quot )
superclass-of "uniform-tuple-texture-units" word-prop 0 or :> first-texture-unit
superclass-of \ (bind-uniforms) lookup-method :> next-method
superclass "uniform-tuple-texture-units" word-prop 0 or :> first-texture-unit
superclass \ (bind-uniforms) lookup-method :> next-method
first-texture-unit uniforms "" [bind-uniform-tuple] nip :> bind-quot
{ 2dup next-method } bind-quot [ ] append-as ;