classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / tools / deploy / windows / ico / ico.factor

diff --git a/basis/tools/deploy/windows/ico/ico.factor b/basis/tools/deploy/windows/ico/ico.factor
index aa706c8b9d5d35ca468a4dcea1583fc4b63954be..ff4d12b77c126d2d6da69ffd823fcabecb3f8042 100644 (file)
--- a/basis/tools/deploy/windows/ico/ico.factor
+++ b/basis/tools/deploy/windows/ico/ico.factor
@@ -36,7 +36,7 @@ STRUCT: group-directory-entry
     [ {
         [ Width>> ] [ Height>> ] [ Colors>> ] [ Reserved>> ]
         [ Planes>> ] [ BitsPerPixel>> ] [ ImageSize>> ]
-    } cleave ] [ 1 + ] bi* group-directory-entry <struct-boa> >c-ptr ; inline
+    } cleave ] [ 1 + ] bi* group-directory-entry boa >c-ptr ; inline
 
 : ico-icon ( directory-entry bytes -- subbytes )
     [ [ ImageOffset>> dup ] [ ImageSize>> + ] bi ] dip subseq ; inline