fix load errors

extra/http/http.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2003, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: fry hashtables io io.streams.string kernel math
+USING: fry hashtables io io.streams.string kernel math sets
 namespaces math.parser assocs sequences strings splitting ascii
 io.encodings.utf8 io.encodings.string namespaces unicode.case
 combinators vectors sorting accessors calendar

extra/http/server/validators/validators.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2006, 2008 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel continuations sequences math namespaces
+USING: kernel continuations sequences math namespaces sets
 math.parser assocs regexp fry unicode.categories sequences ;
 IN: http.server.validators
 

extra/smtp/smtp.factor

@@ -4,7 +4,7 @@
 USING: namespaces io io.timeouts kernel logging io.sockets
 sequences combinators sequences.lib splitting assocs strings
 math.parser random system calendar io.encodings.ascii
-calendar.format accessors ;
+calendar.format accessors sets ;
 IN: smtp
 
 SYMBOL: smtp-domain

extra/tools/deploy/shaker/shaker.factor

@@ -3,7 +3,7 @@
 USING: qualified io.streams.c init fry namespaces assocs kernel
 parser tools.deploy.config vocabs sequences words words.private
 memory kernel.private continuations io prettyprint
-vocabs.loader debugger system strings ;
+vocabs.loader debugger system strings sets ;
 QUALIFIED: bootstrap.stage2
 QUALIFIED: classes
 QUALIFIED: command-line

extra/tuple-arrays/tuple-arrays.factor

@@ -29,7 +29,7 @@ M: tuple-array set-nth ( elt n seq -- )
     tuck >r >r tuple-array-example deconstruct r> r>
     delegate set-nth ;
 
-M: tuple-array new tuple-array-example >tuple <tuple-array> ;
+M: tuple-array new-sequence tuple-array-example >tuple <tuple-array> ;
 
 : >tuple-array ( seq -- tuple-array/seq )
     dup empty? [

extra/units/units.factor

@@ -1,6 +1,6 @@
 USING: arrays io kernel math namespaces splitting prettyprint
 sequences sorting vectors words inverse inspector shuffle
-math.functions ;
+math.functions sets ;
 IN: units
 
 TUPLE: dimensioned value top bot ;