Various fixes and improvements.

This commit is contained in:
C. Guy Yarvin 2014-07-09 17:48:53 -07:00
parent 27bf640e79
commit a608e99ce0
5 changed files with 12 additions and 12 deletions

View File

@ -435,7 +435,7 @@
vix=(bex +((cut 0 [25 2] mag))) :: width of sender
tay=(cut 0 [27 5] mag) :: message type
==
?> =(2 vez)
?> =(3 vez)
?> =(chk (end 0 20 (mug bod)))
:+ [(end 3 wix bod) (cut 3 [wix vix] bod)]
(kins tay)
@ -455,7 +455,7 @@
=+ tay=(ksin q.kec)
%+ mix
%+ can 0
:~ [3 2]
:~ [3 3]
[20 (mug bod)]
[2 yax]
[2 qax]
@ -1043,7 +1043,7 @@
++ gnaw :: gnaw:am
|= [kay=cape ryn=lane pac=rock] :: process packet
^- [p=(list boon) q=fort]
?. =(2 (end 0 3 pac)) [~ fox]
?. =(3 (end 0 3 pac)) [~ fox]
=+ kec=(bite pac)
?: (goop p.p.kec) [~ fox]
?. (~(has by urb.ton.fox) q.p.kec)

View File

@ -1260,7 +1260,7 @@
|= [for=logo toe=tube]
^- seam
:^ %fun for
toe(s (weld s.toe `path`~[~(rent co (flux [nep ~] quy))]))
toe(s (weld s.toe `path`[~(rent co (flux [nep ~] quy)) %web ~]))
?. won ~
:_ ~
=- =+ pey=(cat 3 (end 3 2 nep) %v)

View File

@ -518,6 +518,11 @@
?: =(too for) (fine cof vax)
?: &(=(%hoot too) =(%hoon for))
(fine cof !>(ream))
?: |(=(%noun for) =(%$ for))
%+ cope ((lake too bek) cof vax)
|= [cof=cafe vux=(unit vase)]
?~ vux (flaw cof [%leaf "ford: link {<too>}"]~)
(fine cof u.vux)
%+ cope
(make cof %boil %gate [[p.bek %main r.bek] /[too]/tan/[for]/sys] ~)
|= [cof=cafe cay=cage]

View File

@ -1465,7 +1465,6 @@
::
++ fain :: path restructure
|= [hom=path raw=path]
~& [%fain hom raw]
=+ bem=(need (tome raw))
=+ [mer=(flop s.bem) moh=(flop hom)]
|- ^- (pair beam path)
@ -1476,7 +1475,6 @@
::
++ fest :: web synthesizer
|= [hom=path raw=path]
~& %fest
|* yax=$+(epic *)
(yax (fuel (fain hom raw)))
::
@ -1488,9 +1486,8 @@
++ fuel :: parse fcgi
|= [bem=beam but=path]
^- epic
~& %fuel
?> ?=([@ *] but)
=+ dyb=(slay i.but)
?> ?=([%web @ *] but)
=+ dyb=(slay i.t.but)
?> ?& ?=([~ %many *] dyb)
?=([* * *] p.u.dyb)
:: ?=([%$ %tas *] i.p.u.dyb)
@ -1517,7 +1514,7 @@
:* (~(gas by *(map cord cord)) quy)
ced
-.bem
t.but
t.t.but
nyp
==

View File

@ -25,8 +25,6 @@
::
%- (fest /synth/doc %)
|= pic=epic
~& [%synth-cen %]
~& [%synth-beam (tome %)]
=+ unt=|=(a=cord (biff (~(get by qix.pic) a) |=(b=cord (slaw %ud b))))
~! unt
=+ moo=(both (unt %foo) (unt %bar))