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

[factor.git] / basis / unix / unix.factor

diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor
index 7c61cd531fe15a2eaab522c3ba1feaeb5a5381b0..da7b8a1594ca1c613a50a015dcd3f97b904eec33 100644 (file)
--- a/basis/unix/unix.factor
+++ b/basis/unix/unix.factor
@@ -73,7 +73,7 @@ M: unix open-file [ open ] unix-system-call ;
 : touch ( filename -- ) f [ utime ] unix-system-call drop ;
 
 : change-file-times ( filename access modification -- )
-    utimbuf <struct>
+    utimbuf new
         swap >>modtime
         swap >>actime
         [ utime ] unix-system-call drop ;