Fix begin: allow answer of "no"

When begin asks the user "Do you have a ship and a ticket?", the answer
"no" is considered invalid. This fixes the problem.
This commit is contained in:
Aaron Beckerman 2013-10-22 17:46:57 +08:00
parent f6b8f019bd
commit 8cbd5e3125

View File

@ -9,7 +9,7 @@
?^ arg (fud p.arg)
%+ pomp ""
%+ (polo %text "Do you have a ship and a ticket? " "yes" ~)
;~(pose (jest %yes) (just %no))
;~(pose (jest %yes) (jest %no))
|= [* ans=@t]
?. =(%yes ans)
:_ ~