Eliminate superfluous |* in funpub.

This commit is contained in:
C. Guy Yarvin 2014-07-06 09:57:37 -07:00
parent e473ab7cf4
commit e35426a8f5
14 changed files with 29 additions and 53 deletions

View File

@ -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)}';"

View File

@ -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]

View File

@ -1,4 +1,4 @@
!: |= *
!:
::::::::: Foobug: a simple application.
::
|_ [hid=hide vat=[%0 p=@ud]]

View File

@ -1,3 +1 @@
|= rem=spur
~& [%html rem]
,@

View File

@ -1,2 +1 @@
|= *
,@

View File

@ -1,4 +1,3 @@
!:
|= *
|= htm=@
[/text/html (met 3 htm) htm]

View File

@ -1,2 +1 @@
|= *
manx

View File

@ -1,4 +1,3 @@
!:
|= *
|= man=manx
(crip (xmlt | man ~))

View File

@ -1,4 +1,3 @@
|= *
|= man=manx
=+ htm=(crip (xmlt | man ~))
[/text/html (met 3 htm) htm]

View File

@ -1,3 +1 @@
|= *
json

View File

@ -1,4 +1,3 @@
|= *
|= jon=json
=+ txt=(crip (pojo jon))
[/text/json (met 3 txt) txt]

View File

@ -1 +1 @@
|=(* ,@)
,@

View File

@ -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

View File

@ -1,3 +1,2 @@
|= *
|= htm=@
[/text/html (met 3 htm) htm]