urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 04:07:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix parser crash in ++lung:vast.

Browse Source 
Closes #554.
This commit is contained in:
Dan Haffey 2015-11-15 12:41:41 -08:00 committed by Raymond Pasco
parent 1a64caff44
commit ddbf12afb7
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])