1 ! Copyright (C) 2008 William Schlieper
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
4 USING: kernel continuations sequences namespaces fry ;
\r
10 : amb ( seq -- elt )
\r
12 '[ , _ '[ , '[ failure set , , continue-with ] callcc0 ] each
\r
13 , continue ] callcc1 ;
\r