5 lines
133 B
Text
5 lines
133 B
Text
(defun amb (. args)
|
|
(suspend amb-scope cont
|
|
(each ((a args))
|
|
(when (and a (call cont a))
|
|
(return-from amb a)))))
|