! Copyright (C) 2012 Seth Gold. ! See http://factorcode.org/license.txt for BSD license. USING: kernel monads partial-continuations namespaces fry prettyprint ; IN: mamb SYMBOL: partial-cont : areset ( quot -- ) [ partial-cont set ] prepose '[ _ breset ] with-scope ; inline : ashift ( quot -- ) partial-cont get swap bshift ; inline : mamb ( ma -- a ) [ swap bind ] curry ashift ; inline