Fix a ++ap bug.

This commit is contained in:
C. Guy Yarvin 2014-11-04 12:20:44 -08:00
parent ab64c9493f
commit 1a290c720c

View File

@ -803,7 +803,8 @@
|= [cof=cafe vax=vase gen=twig]
=+ puz=(mule |.((~(mint ut p.vax) [%noun gen])))
?- -.puz
| (flaw cof p.puz)
| ~& [%maim-fail p.puz]
(flaw cof p.puz)
& %+ (coup cof) (mock [q.vax q.p.puz] (mole ska))
|= val=*
`vase`[p.p.puz val]