diff --git a/contrib/cont-responder/live-updater.factor b/contrib/cont-responder/live-updater.factor index d043398347..16c28921a1 100644 --- a/contrib/cont-responder/live-updater.factor +++ b/contrib/cont-responder/live-updater.factor @@ -35,7 +35,7 @@ USE: lists : get-live-updater-js* ( stream -- string ) #! Read all lines from the stream, creating a string of the result. - dup freadln dup [ , "\n" , get-live-updater-js* ] [ drop fclose ] ifte ; + dup stream-readln dup [ , "\n" , get-live-updater-js* ] [ drop stream-close ] ifte ; : get-live-updater-js ( filename -- string ) #! Return the liveUpdater javascript code as a string. diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor index 063cadc975..e748f8536b 100644 --- a/contrib/cont-responder/todo.factor +++ b/contrib/cont-responder/todo.factor @@ -95,13 +95,13 @@ USE: hashtables : read-todo ( -- ) #! Read a todo list from the current input stream. - read url-decode read url-decode - read str>number [ + read-line url-decode read-line url-decode + read-line str>number [ dup [ - read url-decode "yes" = "complete?" set - read url-decode "priority" set - read url-decode "description" set + read-line url-decode "yes" = "complete?" set + read-line url-decode "priority" set + read-line url-decode "description" set ] extend add-todo-item ] times ; diff --git a/library/httpd/cont-responder.factor b/library/httpd/cont-responder.factor index 6bde893602..0014567479 100644 --- a/library/httpd/cont-responder.factor +++ b/library/httpd/cont-responder.factor @@ -45,9 +45,9 @@ USE: inspector #! Number of seconds to timeout continuations in #! continuation table. This value will need to be #! tuned. I leave it at 24 hours but it can be - #! higher/lower as needed. Default to 12 hours for + #! higher/lower as needed. Default to 15 minutes for #! testing. - 12 3600 * ; + 900 ; : redirect-enabled? #! Set to true if you want the post-redirect-get pattern