diff --git a/contrib/cont-responder/cont-numbers-game.factor b/contrib/cont-responder/cont-numbers-game.factor index 469a510931..62e2474d25 100644 --- a/contrib/cont-responder/cont-numbers-game.factor +++ b/contrib/cont-responder/cont-numbers-game.factor @@ -69,7 +69,7 @@ USE: namespaces - ] show [ "num" get ] bind str>number ; + ] show [ "num" get ] bind string>number ; : guess-banner "I'm thinking of a number between 0 and 100." web-print ; diff --git a/contrib/cont-responder/cont-testing.factor b/contrib/cont-responder/cont-testing.factor index 5316f87589..7e78e27cfa 100644 --- a/contrib/cont-responder/cont-testing.factor +++ b/contrib/cont-responder/cont-testing.factor @@ -94,10 +94,10 @@ USE: io #! Create a namespace holding data required #! for testing continuation based responder functions #! at the interpreter console. - [ + [ reset-continuation-table init-session-namespace - ] extend ; + ] make-hash ; : test-cont-function ( quot -- ) #! Call a continuation responder function with required diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor index d0bfa814cb..eb3247e29e 100644 --- a/contrib/cont-responder/eval-responder.factor +++ b/contrib/cont-responder/eval-responder.factor @@ -46,11 +46,11 @@ USE: sequences #! Create an 'evaluator' object that holds #! the current stack, output and history for #! do-eval. - [ + [ "history" set "output" set "stack" set - ] extend ; + ] make-hash ; : display-eval-form ( url -- ) #! Display the components for allowing entry of diff --git a/contrib/cont-responder/live-updater-responder.factor b/contrib/cont-responder/live-updater-responder.factor index db498ac73c..b409a0541e 100644 --- a/contrib/cont-responder/live-updater-responder.factor +++ b/contrib/cont-responder/live-updater-responder.factor @@ -57,7 +57,7 @@ USE: prettyprint [ [ - "millis" [ millis prettyprint ] "Display Server millis" live-anchor + "millis" [ millis pprint ] "Display Server millis" live-anchor
"The millisecond time from the server will appear here" write
diff --git a/contrib/cont-responder/live-updater.factor b/contrib/cont-responder/live-updater.factor index d4355948cd..d777e18d0a 100644 --- a/contrib/cont-responder/live-updater.factor +++ b/contrib/cont-responder/live-updater.factor @@ -71,10 +71,10 @@ USE: lists #! fragment which is the output generated by calling #! 'quot'. That HTML fragment will be wrapped in a #! 'div' with the given id. - [ + [ "div-quot" set "div-id" set - ] extend [ + ] make-hash [ [ t "disable-initial-redirect?" set [ @@ -123,10 +123,10 @@ USE: lists #! 'div' with the given id. The 'quot' is called with #! a string on top of the stack. This is the input string #! entered in the live search input box. - [ + [ "div-quot" set "div-id" set - ] extend [ + ] make-hash [ [ t "disable-initial-redirect?" set #! Retrieve the search query value from the POST parameters. diff --git a/contrib/cont-responder/todo-example.factor b/contrib/cont-responder/todo-example.factor index 128dc80900..0fb1f2794e 100644 --- a/contrib/cont-responder/todo-example.factor +++ b/contrib/cont-responder/todo-example.factor @@ -452,7 +452,7 @@ USE: sequences #! Write the table of items for the todo list. "heading" [ - [ "Priority" write ] [ "Complete?" write ] [ "Description" write ] [ "Action" write ] [ bl ] + [ "Priority" write ] [ "Complete?" write ] [ "Description" write ] [ "Action" write ] [ " " write ] ] styled-row todo-items [ write-item-row ] each
; diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor index a51f420cab..7b08bb2ea4 100644 --- a/contrib/cont-responder/todo.factor +++ b/contrib/cont-responder/todo.factor @@ -40,19 +40,19 @@ USE: unparser : ( user password -- ) #! Create an empty todo list - [ + [ "password" set "user" set f "items" set - ] extend ; + ] make-hash ; : ( priority description -- ) #! Create a todo item - [ + [ "description" set "priority" set f "complete?" set - ] extend ; + ] make-hash ; : add-todo-item ( -- ) #! Add the item to the todo list @@ -95,13 +95,13 @@ USE: unparser : read-todo ( -- ) #! Read a todo list from the current input stream. readln url-decode readln url-decode - readln str>number [ + readln string>number [ dup - [ + [ readln url-decode "yes" = "complete?" set readln url-decode "priority" set readln url-decode "description" set - ] extend add-todo-item + ] make-hash add-todo-item ] times ; : load-todo ( filename -- )