From e35426a8f5c84906ab451bda8f878d14aaac1164 Mon Sep 17 00:00:00 2001 From: "C. Guy Yarvin" Date: Sun, 6 Jul 2014 09:57:37 -0700 Subject: [PATCH] Eliminate superfluous |* in funpub. --- arvo/eyre.hoon | 1 - arvo/ford.hoon | 7 ++-- main/app/appbug-2/core.hoon | 2 +- main/sys/hoon/ref/gate.hoon | 2 -- main/sys/html/ref/gate.hoon | 1 - main/sys/html/tan/mime/gate.hoon | 1 - main/sys/hymn/ref/gate.hoon | 1 - main/sys/hymn/tan/html/gate.hoon | 1 - main/sys/hymn/tan/mime/gate.hoon | 1 - main/sys/json/ref/gate.hoon | 2 -- main/sys/json/tan/mime/gate.hoon | 1 - main/sys/md/ref/gate.hoon | 2 +- main/sys/md/tan/html/gate.hoon | 59 +++++++++++++------------------- main/sys/md/tan/mime/gate.hoon | 1 - 14 files changed, 29 insertions(+), 53 deletions(-) diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon index 730e730b4..9c700a72e 100644 --- a/arvo/eyre.hoon +++ b/arvo/eyre.hoon @@ -1261,7 +1261,6 @@ =+ ven=+((,@ (need (sky %cw p.toe q.toe r.toe ~)))) =+ ^= cal :/ "path='". - "/{(trip (rsh 3 1 p.toe))}". "/{(trip pey)}". "/{(scow %ud ven)}". "/{(trip q.toe)}';" diff --git a/arvo/ford.hoon b/arvo/ford.hoon index 8b2cbd8fb..41d90b269 100644 --- a/arvo/ford.hoon +++ b/arvo/ford.hoon @@ -390,9 +390,10 @@ ^- (bolt vase) %+ cope (fade cof %bake how bem) |= [cof=cafe gen=twig] - %+ cope (maim cof pit gen) - |= [cof=cafe gat=vase] - (maul cof gat !>([`beak`[p.bem q.bem r.bem] for +:s.bem rem])) + (maim cof pit gen) + :: %+ cope (maim cof pit gen) + :: |= [cof=cafe gat=vase] + :: (maul cof gat !>([`beak`[p.bem q.bem r.bem] for +:s.bem rem])) :: ++ lace :: load and check |= [cof=cafe for=logo rem=spur bem=beam] diff --git a/main/app/appbug-2/core.hoon b/main/app/appbug-2/core.hoon index a92912f9a..48d46c7fb 100644 --- a/main/app/appbug-2/core.hoon +++ b/main/app/appbug-2/core.hoon @@ -1,4 +1,4 @@ -!: |= * +!: ::::::::: Foobug: a simple application. :: |_ [hid=hide vat=[%0 p=@ud]] diff --git a/main/sys/hoon/ref/gate.hoon b/main/sys/hoon/ref/gate.hoon index 772a81e76..4d54e60dd 100644 --- a/main/sys/hoon/ref/gate.hoon +++ b/main/sys/hoon/ref/gate.hoon @@ -1,3 +1 @@ -|= rem=spur -~& [%html rem] ,@ diff --git a/main/sys/html/ref/gate.hoon b/main/sys/html/ref/gate.hoon index 353a9ccf3..4d54e60dd 100644 --- a/main/sys/html/ref/gate.hoon +++ b/main/sys/html/ref/gate.hoon @@ -1,2 +1 @@ -|= * ,@ diff --git a/main/sys/html/tan/mime/gate.hoon b/main/sys/html/tan/mime/gate.hoon index c834dd4f0..3a5927d06 100644 --- a/main/sys/html/tan/mime/gate.hoon +++ b/main/sys/html/tan/mime/gate.hoon @@ -1,4 +1,3 @@ !: -|= * |= htm=@ [/text/html (met 3 htm) htm] diff --git a/main/sys/hymn/ref/gate.hoon b/main/sys/hymn/ref/gate.hoon index 64b0ec983..387ae5ca6 100644 --- a/main/sys/hymn/ref/gate.hoon +++ b/main/sys/hymn/ref/gate.hoon @@ -1,2 +1 @@ -|= * manx diff --git a/main/sys/hymn/tan/html/gate.hoon b/main/sys/hymn/tan/html/gate.hoon index d2b732a8a..9080ffa15 100644 --- a/main/sys/hymn/tan/html/gate.hoon +++ b/main/sys/hymn/tan/html/gate.hoon @@ -1,4 +1,3 @@ !: -|= * |= man=manx (crip (xmlt | man ~)) diff --git a/main/sys/hymn/tan/mime/gate.hoon b/main/sys/hymn/tan/mime/gate.hoon index bd93a3196..3167d325e 100644 --- a/main/sys/hymn/tan/mime/gate.hoon +++ b/main/sys/hymn/tan/mime/gate.hoon @@ -1,4 +1,3 @@ -|= * |= man=manx =+ htm=(crip (xmlt | man ~)) [/text/html (met 3 htm) htm] diff --git a/main/sys/json/ref/gate.hoon b/main/sys/json/ref/gate.hoon index d3e6df1a2..3c840093b 100644 --- a/main/sys/json/ref/gate.hoon +++ b/main/sys/json/ref/gate.hoon @@ -1,3 +1 @@ -|= * json - diff --git a/main/sys/json/tan/mime/gate.hoon b/main/sys/json/tan/mime/gate.hoon index 90349f916..a291843dd 100644 --- a/main/sys/json/tan/mime/gate.hoon +++ b/main/sys/json/tan/mime/gate.hoon @@ -1,4 +1,3 @@ -|= * |= jon=json =+ txt=(crip (pojo jon)) [/text/json (met 3 txt) txt] diff --git a/main/sys/md/ref/gate.hoon b/main/sys/md/ref/gate.hoon index 00f1dfa93..4d54e60dd 100644 --- a/main/sys/md/ref/gate.hoon +++ b/main/sys/md/ref/gate.hoon @@ -1 +1 @@ -|=(* ,@) +,@ diff --git a/main/sys/md/tan/html/gate.hoon b/main/sys/md/tan/html/gate.hoon index 541cffb0d..d19e3b34d 100644 --- a/main/sys/md/tan/html/gate.hoon +++ b/main/sys/md/tan/html/gate.hoon @@ -1,39 +1,26 @@ -!: - - - - - - - -|= * -=> %= . - + - => + - => - |% - ++ down - $& [p=down q=down] - $% [%$ p=tape] - [%code p=tape] - [%inco p=tape] - [%head p=haxe q=down] - [%link p=tape q=tape r=(unit tape)] - [%lord p=(list down)] - [%lund p=(list down)] - [%parg p=down] - [%quot p=down] - [%rong p=down] - [%emph p=down] - [%hrul ~] - [%html p=tape] - == - ++ haxe - |= a=* - ?@ a - ?:(&(!=(0 a) (lth a 6)) a 6) - 6 - -- +=> |% +++ down + $& [p=down q=down] + $% [%$ p=tape] + [%code p=tape] + [%inco p=tape] + [%head p=haxe q=down] + [%link p=tape q=tape r=(unit tape)] + [%lord p=(list down)] + [%lund p=(list down)] + [%parg p=down] + [%quot p=down] + [%rong p=down] + [%emph p=down] + [%hrul ~] + [%html p=tape] + == +++ haxe + |= a=* + ?@ a + ?:(&(!=(0 a) (lth a 6)) a 6) + 6 +-- |% ++ cott ;~ pose diff --git a/main/sys/md/tan/mime/gate.hoon b/main/sys/md/tan/mime/gate.hoon index 730948e87..f1a6d9f49 100644 --- a/main/sys/md/tan/mime/gate.hoon +++ b/main/sys/md/tan/mime/gate.hoon @@ -1,3 +1,2 @@ -|= * |= htm=@ [/text/html (met 3 htm) htm]