Paste: mamb

Author: Sgeo
Mode: factor
Date: Sun, 23 Dec 2012 01:30:43
Plain Text |
! 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

New Annotation

Summary:
Author:
Mode:
Body: