get things working with recent cvs update. Some responders still don't

work due to typecheck errors.

contrib/cont-responder/browser.factor

@@ -28,9 +28,8 @@ IN: browser
 USE: html
 USE: cont-responder
 USE: cont-utils
-USE: stack
+USE: kernel
 USE: stdio
-USE: combinators
 USE: namespaces
 USE: words
 USE: lists

contrib/cont-responder/cont-examples.factor

@@ -25,7 +25,7 @@
 IN: cont-examples
 USE: cont-responder
 USE: html
-USE: stack
+USE: kernel
 USE: stdio
 USE: html
 USE: lists

contrib/cont-responder/cont-numbers-game.factor

@@ -40,7 +40,6 @@ USE: parser
 USE: html
 USE: cont-responder
 USE: cont-utils
-USE: stack
 USE: stdio
 USE: namespaces
 

contrib/cont-responder/cont-responder.factor

@@ -28,16 +28,12 @@ USE: httpd
 USE: httpd-responder
 USE: math
 USE: random
-USE: continuations
 USE: namespaces
-USE: stack
-USE: combinators
 USE: streams
 USE: lists
 USE: strings
 USE: html
 USE: kernel
-USE: logic
 USE: html
 USE: logging
 USE: url-encoding

contrib/cont-responder/cont-testing.factor

@@ -86,7 +86,7 @@
 ! etc.
 IN: cont-responder
 USE: namespaces
-USE: stack
+USE: kernel
 USE: combinators
 USE: stdio
 

contrib/cont-responder/cont-utils.factor

@@ -28,10 +28,9 @@ USE: html
 USE: cont-responder
 USE: lists
 USE: stdio
-USE: stack
+USE: kernel
 USE: namespaces
 USE: html
-USE: combinators
 
 : simple-page ( title quot -- )
   #! Call the quotation, with all output going to the

contrib/cont-responder/eval-responder.factor

@@ -27,7 +27,7 @@ IN: eval-responder
 USE: html
 USE: cont-responder
 USE: cont-utils
-USE: stack
+USE: kernel
 USE: stdio
 USE: namespaces
 USE: streams
@@ -36,7 +36,6 @@ USE: lists
 USE: errors
 USE: strings
 USE: logic
-USE: combinators
 USE: live-updater
 USE: prettyprint
 USE: unparser

contrib/cont-responder/live-updater-responder.factor

@@ -30,7 +30,6 @@ USE: namespaces
 USE: html
 USE: words
 USE: stdio
-USE: stack
 USE: kernel
 USE: cont-utils
 USE: cont-responder

contrib/cont-responder/live-updater.factor

@@ -24,7 +24,7 @@
 ! cont-responder code for display forms and anchors that use XMLHttpRequest
 ! and the 'liveUpdater.js' code.
 IN: live-updater
-USE: stack
+USE: kernel
 USE: streams
 USE: strings
 USE: html
@@ -32,7 +32,6 @@ USE: cont-responder
 USE: stdio
 USE: namespaces
 USE: lists
-USE: combinators
 
 : get-live-updater-js* ( stream -- string )
   #! Read all lines from the stream, creating a string of the result.

contrib/cont-responder/load.factor

@@ -23,12 +23,11 @@
 !
 ! Start an httpd server and some words to re-load the continuation
 ! server files.
+USE: kernel
 USE: httpd-responder
 USE: httpd
 USE: threads
-USE: stack
 USE: prettyprint
-USE: combinators
 USE: errors
 USE: stdio
 

contrib/cont-responder/todo-example.factor

@@ -32,18 +32,15 @@ USE: html
 USE: cont-utils
 USE: html
 USE: stdio
-USE: stack
 USE: strings
 USE: namespaces
 USE: inspector
 USE: lists
-USE: combinators
 USE: cont-examples
 USE: regexp
 USE: prettyprint
 USE: todo
 USE: math
-USE: logic
 USE: kernel
  
 : todo-stylesheet ( -- string )
@@ -191,12 +188,19 @@ USE: kernel
 
 : valid-username-char ( ch -- b ) 
   #! Return true if the character is valid to appear in a username.
-  [ 
+  dup letter? [
-    [ letter? ] [ drop t ] 
+    drop t
-    [ LETTER? ] [ drop t ] 
+  ] [
-    [ digit?  ] [ drop t ] 
+    dup LETTER? [
-    [         ] [ drop f ] 
+      drop t
-  ] cond ;
+    ] [
+      digit? [
+        t
+      ] [
+        f
+      ] ifte
+    ] ifte
+  ] ifte ;
 
 : replace-invalid-username-chars ( str -- str ) 
   #! Return a string with invalid username characters mapped to underscores.

contrib/cont-responder/todo.factor

@@ -26,7 +26,6 @@
 ! complete. 
 IN: todo
 USE: parser
-USE: stack
 USE: strings
 USE: streams
 USE: namespaces
@@ -37,9 +36,7 @@ USE: kernel
 USE: prettyprint
 USE: unparser
 USE: url-encoding
-USE: combinators
 USE: files
-USE: logic
 USE: hashtables
 
 : <todo> ( user password -- <todo> )