steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/deploy/backend/backend.factor
View File

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

4
extra/gpu/render/render.factor
View File

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