Weird hack to allow hoon at start-of-line

This commit is contained in:
Anton Dyudin 2017-08-09 18:07:55 -07:00
parent fe96ff92bc
commit 6d03df2001
2 changed files with 13 additions and 4 deletions

View File

@ -9956,6 +9956,13 @@
:- p.vex
`[p.u.q.hav q.u.q.vex]
::
::REVIEW surely there is a less hacky "first or after space" solution
++ easy-sol :: parse start of line
|* a/*
|= b/nail
?: =(1 q.p.b) ((easy a) b)
(fail b)
::
++ echo :: hoon literal
|* sab/rule
|= {naz/hair los/tape}
@ -10019,15 +10026,15 @@
:: #twig
::
;~ plug
(stag %text (cold " " whit))
(stag %text ;~(pose (cold " " whit) (easy-sol ~)))
(stag %code ;~(pfix hax (echo wide)))
(easy ~)
;~(simu whit (easy ~))
==
::
:: direct hoon constant
::
;~ plug
(stag %text (cold " " whit))
(stag %text ;~(pose (cold " " whit) (easy-sol ~)))
::
%+ stag %code
%- echo
@ -10041,7 +10048,7 @@
;~(pfix cen ;~(pose sym buc pam bar qut nuck:so))
==
::
(easy ~)
;~(simu whit (easy ~))
==
::
:: whitespace

View File

@ -2,6 +2,8 @@
un*bearably*
0b1100
---
## This is a header