Merge branch 'test' of https://github.com/urbit/urbit into test

Conflicts:
	urb/urbit.pill
This commit is contained in:
C. Guy Yarvin 2015-01-26 12:55:52 -08:00
commit cc07287e80
2 changed files with 5 additions and 5 deletions

View File

@ -3653,9 +3653,9 @@
|= pax=path ^- tape |= pax=path ^- tape
=- ~(ram re %rose ["/" "/" ~] -) =- ~(ram re %rose ["/" "/" ~] -)
(turn pax |=(a=span [%leaf (trip a)])) (turn pax |=(a=span [%leaf (trip a)]))
++ stab :: parse span to path ++ stab :: parse cord to path
|= zep=@ta ^- path =+ fel=;~(pfix fas (more fas urs:ab))
(rash zep ;~(pfix fas (more fas urs:ab))) |=(zep=@t `path`(rash zep fel))
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eM, regular-expressions :: :: section 2eM, regular-expressions ::
:: ::

View File

@ -2655,8 +2655,8 @@
(turn b |=(c=span (cat 3 '_' (wack c)))) (turn b |=(c=span (cat 3 '_' (wack c))))
:: ::
++ pick :: light path decoding ++ pick :: light path decoding
|= a=span ^- (unit ,[p=term q=path]) =+ fel=(most cab (sear wick urt:ab))
(rush a (most cab (sear wick urt:ab))) |=(a=span `(unit ,[p=term q=path])`(rush a fel))
++ saxo :: autocanon ++ saxo :: autocanon
|= who=ship |= who=ship
^- (list ship) ^- (list ship)