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

Merge branch 'lung-crash'

Browse Source 
Dan Haffey: change a parser to non-crashing semantics
            (includes urbit.pill)
This commit is contained in:
Raymond Pasco 2015-11-16 19:27:51 -05:00
commit 95b144c4e6
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
arvo/hoon.hoon
View File

@ -7235,15 +7235,15 @@
* gen
==
::
++ rake
^- wing
?- gen
[~ *] [gen ~]
[%cnzy *] [p.gen ~]
[%cnzz *] p.gen
[%cnts * ~] p.gen
[%zpcb *] rake(gen q.gen)
* ~|(%rake-twig !!)
++ rake ~|(%rake-twig (need reek))
++ reek
^- (unit wing)
?+ gen ~
[~ *] `[gen ~]
[%cnzy *] `[p.gen ~]
[%cnzz *] `p.gen
[%cnts * ~] `p.gen
[%zpcb *] reek(gen q.gen)
==
++ rusk
^- term
@ -9900,8 +9900,8 @@
^- (unit twig)
?- -.vil
%col [~ %tsgl ros p.vil]
%pel [~ %cnts ~(rake ap ros) p.vil]
%pat [~ %bcpt ~(rake ap ros) p.vil]
%pel (bind ~(reek ap ros) |=(hyp=wing [%cnts hyp p.vil]))
%pat (bind ~(reek ap ros) |=(hyp=wing [%bcpt hyp p.vil]))
%ket [~ ros p.vil]
%tis =+ tog=~(hock ap ros)
?:(=([%0 ~] tog) ~ [~ %ktts tog p.vil])