factor: fix renaming bugs
parent
2f6548d6d2
commit
329aed2366
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue