From 9eb4ce2791aea5da1b256530c9f23688af2b2776 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 26 Aug 2009 19:09:38 -0500
Subject: [PATCH] trying to memory>struct a non-struct class is feptastic
---
basis/struct-arrays/struct-arrays.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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 <displaced-alien> ; 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 ;