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

[factor.git] / basis / classes / struct / struct.factor

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 3763d65ab12d29467c960b0e1d8d04790beaefbc..df7896a40426a3f32bef1594aec4b4bafa2b9888 100644 (file)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -162,6 +162,7 @@ M: struct-class writer-quot
 : offset-of ( field struct -- offset )
     struct-slots slot-named offset>> ; inline
 
+! XXX: make this faster
 M: struct hashcode*
     nip dup >c-ptr [ struct-slot-values hashcode ] [ drop 0 ] if ; inline