ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 15:01:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add ++gulf and &/, |/ syntax to match ++each.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-21 22:30:08 -07:00
parent 4b14564c72
commit ea4e7b917f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
base/arvo/hoon.hoon
View File

@ -1822,6 +1822,9 @@
|* b=_+<+.a
(a b c)
::
++ gulf :: range list
|=([a=@ b=@] `(list ,@)`?:(=(a b) ~ [a $(a +(a))]))
::
++ hard :: force coerce to type
|* han=$+(* *)
|= fud=* ^- han
@ -8729,7 +8732,7 @@
==
--
::
++ scat
++ scat !:
%+ knee *twig |. ~+
%- stew
^. stet ^. limo
@ -8760,6 +8763,7 @@
;~ pose
(cook |=(a=wing [%cnts a ~]) rope)
(stag %wtpm ;~(pfix pam (ifix [pel per] (most ace wide))))
;~(plug (stag %dtzz (stag %f (cold & pam))) ;~(pfix fas wide))
(stag %dtzy (stag %f (cold & pam)))
==
:- '\''
@ -8839,6 +8843,7 @@
;~ pose
(cook |=(a=wing [%cnts a ~]) rope)
(stag %wtbr ;~(pfix bar (ifix [pel per] (most ace wide))))
;~(plug (stag %dtzz (stag %f (cold | bar))) ;~(pfix fas wide))
(stag %dtzy (stag %f (cold | bar)))
==
:- '~'
@ -9590,7 +9595,6 @@
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: volume 3, Arvo models and skeleton ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
!:
~% %arvo + ~
|%
++ arch ,[p=@uvI q=(unit ,@uvI) r=(map ,@ta ,~)] :: fundamental node