Skip to content

Commit

Permalink
[fix] UserContext: remove some un-needed directive
Browse files Browse the repository at this point in the history
  • Loading branch information
Hugo Heuzard committed Sep 12, 2011
1 parent 14c3e16 commit c2e97a1
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions stdlib/core/web/context/user_context.opa
Expand Up @@ -181,12 +181,11 @@ UserContext =
*/
@server
execute(action : 'state -> 'b, context : UserContext.t('state)) : 'b =
k(cont)= @with_thread_context(ThreadContext.get({from=cont}),
k(cont)=
f(state:'state) : ( -> void) =
return = action(state)
-> Continuation.return(cont, return)
(Cell.call(context, {exec=f}) |> Option.get(_))()
)
@callcc(k)


Expand Down

0 comments on commit c2e97a1

Please sign in to comment.