Cache the slot in +slur, which makes the type passed to ~nest the same noun each time.

This commit is contained in:
Elliot Glaysher 2018-11-24 11:40:01 -08:00
parent 80a32804a4
commit 7f01ce0762

View File

@ -158,7 +158,7 @@
++ slur :: call gate on
|= {gat/vase hil/mill}
^- (unit (pair vase worm))
=+ sam=(slot 6 gat)
=^ sam p.sew (~(slot wa p.sew) 6 gat)
=+ ^= hig
?- -.hil
%& (~(nest wa p.sew) p.sam p.p.hil)