diff --git a/extra/new-slots/authors.txt b/extra/new-slots/authors.txt
deleted file mode 100755
index 1901f27a24..0000000000
--- a/extra/new-slots/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Slava Pestov
diff --git a/extra/new-slots/new-slots.factor b/extra/new-slots/new-slots.factor
deleted file mode 100755
index 9773da7b41..0000000000
--- a/extra/new-slots/new-slots.factor
+++ /dev/null
@@ -1,67 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: effects words kernel sequences slots slots.private
-assocs parser mirrors namespaces math vocabs tuples ;
-IN: new-slots
-
-: create-accessor ( name effect -- word )
- >r "accessors" create dup r>
- "declared-effect" set-word-prop ;
-
-: reader-effect T{ effect f { "object" } { "value" } } ; inline
-
-: reader-word ( name -- word )
- ">>" append reader-effect create-accessor ;
-
-: define-reader ( class slot name -- )
- reader-word [ slot ] define-slot-word ;
-
-: writer-effect T{ effect f { "value" "object" } { } } ; inline
-
-: writer-word ( name -- word )
- "(>>" swap ")" 3append writer-effect create-accessor ;
-
-: define-writer ( class slot name -- )
- writer-word [ set-slot ] define-slot-word ;
-
-: setter-effect T{ effect f { "object" "value" } { "value" } } ; inline
-
-: setter-word ( name -- word )
- ">>" prepend setter-effect create-accessor ;
-
-: define-setter ( name -- )
- dup setter-word dup deferred? [
- [ \ over , swap writer-word , ] [ ] make define-inline
- ] [ 2drop ] if ;
-
-: changer-effect T{ effect f { "object" "quot" } { "object" } } ; inline
-
-: changer-word ( name -- word )
- "change-" prepend changer-effect create-accessor ;
-
-: define-changer ( name -- )
- dup changer-word dup deferred? [
- [
- [ over >r >r ] %
- over reader-word ,
- [ r> call r> swap ] %
- swap setter-word ,
- ] [ ] make define-inline
- ] [ 2drop ] if ;
-
-: define-new-slot ( class slot name -- )
- dup define-changer
- dup define-setter
- 3dup define-reader
- define-writer ;
-
-: define-new-slots ( tuple-class -- )
- [ "slot-names" word-prop <enum> >alist ] keep
- [ swap first2 >r 4 + r> define-new-slot ] curry each ;
-
-: TUPLE:
- CREATE-CLASS
- dup ";" parse-tokens define-tuple-class
- define-new-slots ; parsing
-
-"accessors" create-vocab drop
diff --git a/extra/windows/time/time.factor b/extra/windows/time/time.factor
old mode 100644
new mode 100755
index e910ca2888..63b12de1ff
--- a/extra/windows/time/time.factor
+++ b/extra/windows/time/time.factor
@@ -8,7 +8,7 @@ IN: windows.time
32 shift bitor ;
: windows-1601 ( -- timestamp )
- 1601 1 1 0 0 0 0 <timestamp> ;
+ 1601 1 1 0 0 0 instant <timestamp> ;
: FILETIME>windows-time ( FILETIME -- n )
[ FILETIME-dwLowDateTime ] keep