zuse: removes redundant definitions of $mite and $octs

This commit is contained in:
Joe Bryan 2020-10-03 23:34:10 -07:00
parent a208387a72
commit b5c9f4ed2a
11 changed files with 10 additions and 16 deletions

View File

@ -9,7 +9,7 @@
|_ ato/@
++ grab |%
++ noun @
++ mime |=({* p/octs:eyre} q.p)
++ mime |=([* p=octs] q.p)
--
++ grow |%
++ mime [/application/x-urb-unknown (as-octs ato)]

View File

@ -16,7 +16,7 @@
++ grab
|%
++ mime
|= [p=mite:eyre q=octs:eyre]
|= (pair mite octs)
=/ wan=wain (to-wain q.q)
?> ?=(^ wan)
%+ murn t.wan

View File

@ -9,7 +9,7 @@
::
++ grab :: convert from
|%
++ mime |=({p/mite:eyre q/octs:eyre} (to-wain q.q))
++ mime |=((pair mite octs) (to-wain q.q))
++ noun wain :: clam from %noun
--
++ grow

View File

@ -6,7 +6,7 @@
::
++ grab :: convert from
|%
++ mime |=([p=mite:eyre q=octs:eyre] (to-wain q.q))
++ mime |=((pair mite octs) (to-wain q.q))
++ noun wain :: clam from %noun
--
++ grow

View File

@ -13,7 +13,7 @@
|%
++ noun pill
++ mime
|= [p=mite:eyre q=octs:eyre]
|= (pair mite octs)
=+ o=(pair ,* ,*) :: ,*)
=+ (,[boot-ova=* kernel-ova=(list o) userspace-ova=(list o)] (cue q.q))
=/ convert

View File

@ -25,7 +25,7 @@
++ grab
|%
++ mime
|= [mite:eyre p=octs:eyre]
|= [mite p=octs]
|^ (rash q.p both-parser)
++ key-val
|* [key=rule val=rule]

View File

@ -23,7 +23,7 @@
++ grab
|%
++ mime
|= [mite:eyre p=octs:eyre]
|= [mite p=octs]
|^ (rash q.p both-parser)
++ key-val
|* [key=rule val=rule]

View File

@ -11,7 +11,7 @@
::
++ grab :: convert from
|%
++ mime |=({p/mite:eyre q/octs:eyre} (to-wain q.q))
++ mime |=((pair mite octs) (to-wain q.q))
++ noun wain :: clam from %noun
--
++ grow

View File

@ -23,7 +23,7 @@
--
++ grab
|%
++ mime |=({p/mite:eyre q/octs:eyre} q.q)
++ mime |=((pair mite octs) q.q)
++ noun @t
++ txt of-wain:format
--

View File

@ -23,7 +23,7 @@
--
++ grab
|%
++ mime |=({p/mite:eyre q/octs:eyre} q.q)
++ mime |=((pair mite octs) q.q)
++ noun @t
++ txt of-wain:format
--

View File

@ -75,10 +75,6 @@
++ life @ud :: ship key revision
++ rift @ud :: ship continuity
++ mime {p/mite q/octs} :: mimetyped data
::
::
:: TODO: Rename to +mime once the current +mime and +mite are gone. The
::
++ octs {p/@ud q/@} :: octet-stream
++ sock {p/ship q/ship} :: outgoing [our his]
::+|
@ -1559,9 +1555,7 @@
$put :: PUT
$trac :: TRACE
== ::
++ mite (list @ta) :: mime type
++ moth {p/meth q/math r/(unit octs)} :: http operation
++ octs {p/@ud q/@t} :: octet-stream
++ oryx @t :: CSRF secret
++ pork {p/(unit @ta) q/(list @t)} :: fully parsed url
:: +prox: proxy notification