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

hoon: lac/rac to sel/ser

Browse Source
This commit is contained in:
John Franklin 2020-05-28 06:14:23 -05:00
parent 413c5682b6
commit 250f4e3130
6 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/app/dojo.hoon
View File

@ -275,7 +275,7 @@
;~ pose
(stag %sa ;~(pfix tar pam sym))
(stag %ex parse-hoon)
(stag %tu (ifix [lac rac] (most ace parse-source)))
(stag %tu (ifix [sel ser] (most ace parse-source)))
==
::
++ parse-config

2
pkg/arvo/lib/language-server/build.hoon
View File

@ -7,7 +7,7 @@
=/ parse-pair
%+ cook
|=([row=@ud col=@ud] [(dec row) col])
(ifix [lac rac] ;~((glue ace) dem dem))
(ifix [sel ser] ;~((glue ace) dem dem))
=/ parse-path
%+ cook
|=(p=path (slag 3 p))

2
pkg/arvo/lib/language-server/parser.hoon
View File

@ -182,7 +182,7 @@
::
++ hoon
%+ wide-or-tall
(ifix [lac rac] (stag %cltr (most ace wide:hoon-parser)))
(ifix [sel ser] (stag %cltr (most ace wide:hoon-parser)))
;~(pfix gap tall:hoon-parser)
--
:: +static-path: parses a path

18
pkg/arvo/sys/hoon.hoon
View File

@ -12144,7 +12144,7 @@
==
++ glam ~+((glue ace))
++ hasp ;~ pose :: path element
(ifix [lac rac] wide)
(ifix [sel ser] wide)
(stag %cncl (ifix [pal par] (most ace wide)))
(stag %sand (stag %tas (cold %$ buc)))
(stag %sand (stag %t qut))
@ -13160,7 +13160,7 @@
::
%+ stag %link
;~ (glue (punt whit))
(ifix [lac rac] (cool (cash rac) werk))
(ifix [sel ser] (cool (cash ser) werk))
(ifix [pal par] (cash par))
==
::
@ -13169,7 +13169,7 @@
%+ stag %mage
;~ pfix zap
;~ (glue (punt whit))
(ifix [lac rac] (cash rac))
(ifix [sel ser] (cash ser))
(ifix [pal par] (cash par))
==
==
@ -13387,7 +13387,7 @@
::
(stag %bscl (ifix [lob rob] (most ace wyde)))
:- '['
(stag %bscl (ifix [lac rac] (most ace wyde)))
(stag %bscl (ifix [sel ser] (most ace wyde)))
:- '*'
(cold [%base %noun] tar)
:- '/'
@ -13596,7 +13596,7 @@
::
;~ pfix sig
;~ pose
(stag %clsg (ifix [lac rac] (most ace wide)))
(stag %clsg (ifix [sel ser] (most ace wide)))
::
%+ stag %cnsg
%+ ifix
@ -13920,14 +13920,14 @@
;~ pfix (jest '+*')
;~ plug
;~(pfix gap sym)
;~(pfix gap (ifix [lac rac] (most ace sym)))
;~(pfix gap (ifix [sel ser] (most ace sym)))
;~(pfix gap loan)
==
==
==
:: parses a or [a b c] or a b c ==
++ lynx
=/ wid (ifix [lac rac] (most ace sym))
=/ wid (ifix [sel ser] (most ace sym))
=/ tal
;~ sfix
(most gap sym)
@ -14179,7 +14179,7 @@
;~ gunk
;~ pose
dem
(ifix [lac rac] ;~(plug dem ;~(pfix ace dem)))
(ifix [sel ser] ;~(plug dem ;~(pfix ace dem)))
==
loaf
==
@ -14242,7 +14242,7 @@
%+ cook |=(hoon +<)
%+ stag %cltr
%+ ifix
[;~(plug lac gap) ;~(plug gap rac)]
[;~(plug sel gap) ;~(plug gap ser)]
(most gap tall)
::
++ ropa (most col rope)

2
pkg/arvo/sys/vane/ford.hoon
View File

@ -1047,7 +1047,7 @@
::
++ hoon
%+ wide-or-tall
(ifix [lac rac] (stag %cltr (most ace wide:hoon-parser)))
(ifix [sel ser] (stag %cltr (most ace wide:hoon-parser)))
;~(pfix gap tall:hoon-parser)
--
:: +static-path: parses a path

2
pkg/arvo/sys/zuse.hoon
View File

@ -6664,7 +6664,7 @@
:: :: ++abox:de-json:html
++ abox :: array
%+ stag %a
(ifix [lac (wish rac)] (more (wish com) apex))
(ifix [sel (wish ser)] (more (wish com) apex))
:: :: ++apex:de-json:html
++ apex :: any value
%+ knee *json |. ~+