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

[factor.git] / basis / random / sfmt / sfmt.factor

diff --git a/basis/random/sfmt/sfmt.factor b/basis/random/sfmt/sfmt.factor
index 2ef48334489d2161db73fcdc703974f8efb4c673..d6668c1622ebaa00c09f4ebdec1df2f80bb9879f 100644 (file)
--- a/basis/random/sfmt/sfmt.factor
+++ b/basis/random/sfmt/sfmt.factor
@@ -121,7 +121,7 @@ M:: sfmt generate ( sfmt -- )
     dup uint-4 cast-array ;
 
 : <sfmt-state> ( seed n m mask parity -- sfmt )
-    sfmt-state <struct>
+    sfmt-state new
         swap >>parity
         swap >>mask
         swap >>m