comment fixes

This commit is contained in:
Anton Dyudin 2014-07-01 15:51:42 -07:00 committed by Anton Dyudin
parent 20d14296c0
commit afa76048e0
4 changed files with 7 additions and 7 deletions

View File

@ -74,7 +74,7 @@
== ::
++ riff ,[p=desk q=(unit rave)] :: see %clay
++ sigh ,[@tas p=sign] :: sourced sign
++ sign :: in result $-<
++ sign :: in result $<-
$% [%crud p=@tas q=(list tank)] :: by any
[%hail ~] :: by any
[%helo p=path q=prod] :: by %ames

View File

@ -32,7 +32,7 @@
$: %d ::
$% [%flog p=[%crud p=@tas q=(list tank)]] :: to %dill
== == == ::
++ sign :: in result $-<
++ sign :: in result $<-
$? $: %a :: by %ames
$% [%send p=lane q=@] ::
[%waft p=sock q=*] ::

View File

@ -103,7 +103,7 @@
ped=(set (pair ship desk)) :: active depends
zam=scar :: opaque ducts
== ::
++ sign :: in result $-<
++ sign :: in result $<-
$? [?(%a %b %c %d %e) @tas *] ::
$: %g :: by %gall
$% [%dumb ~] ::

View File

@ -1868,14 +1868,14 @@
==
==
::
++ hunt
++ hunt :: first of unit dates
|= [one=(unit ,@da) two=(unit ,@da)]
^- (unit ,@da)
?~ one two
?~ two one
?:((lth u.one u.two) one two)
::
++ meat
++ meat :: kite to .^ path
|= kit=kite
^- path
[(cat 3 'c' p.kit) (scot %p r.kit) s.kit (scot (dime q.kit)) t.kit]
@ -1919,7 +1919,7 @@
?: ?=(| -.mud) mud
(mule |.((slam p.mud sam)))
::
++ numb :: ?? XX
++ numb :: ship display name? XX
|= [him=@p now=@da] ^- @t
=+ yow=(scot %p him)
=+ woy=((hard ,@t) .^(%a yow %name (scot %da now) ~))
@ -2227,7 +2227,7 @@
$% [%a p=(list json)] :: array
[%o p=(map ,@t json)] :: object
== ::
++ jval json :: XX compatibility
++ jval json :: compatibility XX
++ lamb :: short path
$% [& p=@tas] :: auto
[| p=twig] :: manual