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

Fix typo in tools.deploy.windows.ico

db4
Doug Coleman 2011-10-16 23:05:38 -07:00
parent 3582e9c168
commit db1d499a6f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/deploy/windows/ico/ico.factor
View File

@ -1,6 +1,6 @@
USING: accessors alien alien.c-types arrays classes.struct combinators USING: accessors alien alien.c-types arrays classes.struct combinators
io.backend kernel locals math sequences specialized-arrays io.backend kernel locals math sequences specialized-arrays
tools.deploy.windows windows.kernel32 windows.types ; tools.deploy.windows windows.kernel32 windows.types alien.data ;
IN: tools.deploy.windows.ico IN: tools.deploy.windows.ico
<PRIVATE <PRIVATE
@ -44,7 +44,7 @@ STRUCT: group-directory-entry
bytes ico-header memory>struct :> header bytes ico-header memory>struct :> header
ico-header heap-size bytes <displaced-alien> ico-header heap-size bytes <displaced-alien>
header ImageCount>> ioc-directory-entry <c-direct-array> :> directory header ImageCount>> ico-directory-entry <c-direct-array> :> directory
directory dup length iota [ ico>group-directory-entry ] { } 2map-as directory dup length iota [ ico>group-directory-entry ] { } 2map-as
:> group-directory :> group-directory