From 61610b46692619146db31527fbcdbf46f6394fcf Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Wed, 6 May 2015 19:18:06 -0700 Subject: [PATCH] Revert to less broken console library. --- base/lib/sole/core.hook | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/base/lib/sole/core.hook b/base/lib/sole/core.hook index dcbc30bfdb..4ffa639f3d 100644 --- a/base/lib/sole/core.hook +++ b/base/lib/sole/core.hook @@ -65,7 +65,7 @@ ?- -.dex %del ?:((lte p.sin p.dex) dex(p +(p.dex)) dex) %ins ?: =(p.sin p.dex) - ?:((lth q.sin q.dex) dex dex(p +(p.dex))) + ?:((gth q.sin q.dex) dex dex(p +(p.dex))) ?:((lte p.sin p.dex) dex(p +(p.dex)) dex) == == @@ -85,8 +85,7 @@ ++ inverse :: relative inverse |= ted=sole-edit ^- sole-edit - :: =. ted ?.(?=([%mor * ~] ted) ted i.p.ted) :: XX why? - ~| [ted abet] + =. ted ?.(?=([%mor * ~] ted) ted i.p.ted) ?- -.ted %del [%ins p.ted (snag p.ted buf)] %ins [%del p.ted] @@ -103,14 +102,13 @@ ++ receive :: naturalize event |= sole-change ^- [sole-edit sole-share] - ~| [ler ven] ?> &(=(his.ler his.ven) (lte own.ler own.ven)) - ?> |(!=(own.ler own.ven) =(haw (sham buf)) =(haw 0)) :: trust the clock + ?> &(=(his.ler his.ven) (lte own.ler own.ven)) + ?> |(!=(own.ler own.ven) =(0 haw) =(haw (sham buf))) =. leg (scag (sub own.ven own.ler) leg) :: ~? !=(own.ler own.ven) [%miss-leg leg] - =+ dat=(transmute [%mor (flop leg)] ted) + =+ dat=(transmute [%mor leg] ted) :: ~? !=(~ leg) [%transmute from/ted to/dat ~] - :: =- ~& (tufa buf) - [dat abet:(apply(his.ven +(his.ven)) dat)] :: ++ remit :: conditional accept @@ -126,7 +124,6 @@ ++ transmit :: outgoing change |= ted=sole-edit ^- [sole-change sole-share] - :: =- ~& (tufa buf) - [[[his.ven own.ven] (sham buf) ted] (commit ted)] :: ++ transceive :: receive and invert