diff --git a/basis/furnace/asides/asides.factor b/basis/furnace/asides/asides.factor index ecf6d0a628..8700946bb5 100644 --- a/basis/furnace/asides/asides.factor +++ b/basis/furnace/asides/asides.factor @@ -1,4 +1,4 @@ -! Copyright (C) 2008 Slava Pestov. +! Copyright (C) 2008, 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: namespaces assocs kernel sequences accessors hashtables urls db.types db.tuples math.parser fry logging combinators @@ -51,7 +51,7 @@ SYMBOL: aside-id set-aside ; M: asides call-responder* - [ init-asides ] [ asides set ] [ call-next-method ] tri ; + [ init-asides ] [ call-next-method ] bi ; : touch-aside ( aside -- ) asides get touch-state ; @@ -65,14 +65,13 @@ M: asides call-responder* [ touch-aside ] [ insert-tuple ] [ set-aside ] tri ; : end-aside-post ( aside -- response ) - [ url>> ] [ post-data>> ] bi request [ clone - swap >>post-data - over >>url + over post-data>> >>post-data + over url>> >>url ] change - [ url set ] [ path>> split-path ] bi - asides get responder>> call-responder ; + [ [ post-data>> params>> params set ] [ url>> url set ] bi ] + [ url>> path>> split-path asides get responder>> call-responder ] bi ; \ end-aside-post DEBUG add-input-logging