ford-fusion: parse /?

This commit is contained in:
Ted Blackman 2020-04-16 08:56:06 -04:00
parent 35c39bf076
commit 5854162e74
2 changed files with 9 additions and 10 deletions

View File

@ -3,7 +3,7 @@
:::: /hoon/hello/gen
::
:: TODO: reinstate
::/? 310
/? 310
::
::::
::

View File

@ -2956,14 +2956,13 @@
++ mont-rule
%+ ifix [gay gay]
%+ cook |=(mont +<)
::TODO: reinstate
:: ;~ pfix
:: :: parse optional /? and ignore
:: ::
:: ;~ pose
:: (cold ~ ;~(plug net wut gap dem))
:: (easy ~)
:: ==
;~ pfix
:: parse optional /? and ignore
::
;~ pose
(cold ~ ;~(plug net wut gap dem gap))
(easy ~)
==
;~ plug
%+ cook |=((list (list taut)) (zing +<))
%+ more gap
@ -2980,7 +2979,7 @@
%+ ifix [;~(plug net tis gap) gap]
%+ cook |=([term path] +<)
;~(plug sym ;~(pfix ;~(plug gap net) (more net urs:ab)))
==
== ==
::
++ taut-rule
%+ cook |=(taut +<)