diff --git a/basis/struct-arrays/struct-arrays.factor b/basis/struct-arrays/struct-arrays.factor index c8a1f5f802..a426f8bb66 100755 --- a/basis/struct-arrays/struct-arrays.factor +++ b/basis/struct-arrays/struct-arrays.factor @@ -20,7 +20,7 @@ M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ; [ element-size>> * ] [ underlying>> ] bi ; inline M: struct-array nth-unsafe - [ (nth-ptr) ] [ class>> ] bi [ memory>struct ] when* ; inline + [ (nth-ptr) ] [ class>> struct-class? ] bi [ memory>struct ] when* ; inline M: struct-array set-nth-unsafe [ (nth-ptr) swap ] [ element-size>> ] bi memcpy ;