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

[factor.git] / extra / random / xoshiro / xoshiro.factor

diff --git a/extra/random/xoshiro/xoshiro.factor b/extra/random/xoshiro/xoshiro.factor
index acfff6c26f01fe561f4c0385250df93fdee96ae9..a76aafc0b301c98ae917ebbbe063b26f0e7799fa 100644 (file)
--- a/extra/random/xoshiro/xoshiro.factor
+++ b/extra/random/xoshiro/xoshiro.factor
@@ -23,7 +23,7 @@ CONSTANT: LONG-JUMP-256 {
 STRUCT: xoshiro-256-star-star { s0 ulonglong } { s1 ulonglong } { s2 ulonglong } { s3 ulonglong } ;
 
 : <xoshiro-256-star-star> ( s0 s1 s2 s3 -- obj )
-    xoshiro-256-star-star <struct>
+    xoshiro-256-star-star new
         swap >>s3
         swap >>s2
         swap >>s1