]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/tools/time/struct/struct.factor
factor: trim using lists
[factor.git] / extra / tools / time / struct / struct.factor
index 16a0549ec57e86e08e2f0d480a870f6a0595e973..338d2dbf1aa2dcb784612354b53dc3c4b20be2cf 100644 (file)
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.c-types classes.struct kernel memory
+USING: accessors alien.c-types classes.struct kernel
 tools.memory system vm ;
 IN: tools.time.struct
 
@@ -15,14 +15,14 @@ STRUCT: benchmark-data-pair
     { stop benchmark-data } ;
 
 : <benchmark-data> ( -- benchmark-data )
-    benchmark-data <struct>
+    benchmark-data <struct>
         nano-count >>time
         data-room >>data-room
         code-room >>code-room
         callback-room >>callback-room ; inline
 
 : <benchmark-data-pair> ( start stop -- benchmark-data-pair )
-    benchmark-data-pair <struct>
+    benchmark-data-pair <struct>
         swap >>stop
         swap >>start ; inline