Disabled all wing traversal jerts.

This commit is contained in:
C. Guy Yarvin 2015-12-21 16:38:31 -08:00
parent a0423da33f
commit 715d69a9fb
2 changed files with 19 additions and 1 deletions

View File

@ -230,7 +230,24 @@
return _cqfu_seek(van, sut, way, hyp);
}
}
#if 1
u3_noun
u3qfu_seek(u3_noun van,
u3_noun sut,
u3_noun way,
u3_noun hyp)
{
u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
u3_noun gat = u3j_hook(von, "seek");
return u3n_kick_on(u3i_molt(gat,
u3x_sam_2,
u3k(way),
u3x_sam_3,
u3k(hyp),
0));
}
#else
u3_noun
u3qfu_seek(u3_noun van,
u3_noun sut,
@ -249,6 +266,7 @@
return u3z_save_3(fun_m, sut, way, hyp, pro);
}
}
#endif
u3_noun
u3qfu_seep(u3_noun van,

View File

@ -3,7 +3,6 @@
*/
#include "all.h"
u3_noun
u3qfu_tack(u3_noun van,
u3_noun sut,
@ -20,3 +19,4 @@
u3k(mur),
0));
}