added much better suggestion

mess
This commit is contained in:
Eric Fode 2017-09-29 15:33:42 +00:00
parent a375882873
commit 08b1c77976

View File

@ -113,7 +113,7 @@
|= {gol/goal mod/dojo-model} ^- dojo-command
[[%poke gol] [0 [%ge mod(q.p [q.gol q.p.mod])]]]
::
++ dp-command-line ;~(sfix dp-command (just '\0a'))
++ dp-command-line ;~(sfix dp-command (star ace) (just '\0a'))
++ dp-variable :: %verb or %brev
|* {sym/rule src/rule}
%+ cook
@ -789,9 +789,7 @@
++ he-duke :: ++he-dope variant
|= txt/tape
^- (each (unit (each dojo-command tape)) @ud)
=+ trim-space=;~(pfix spac:poja (star next))
=+ trimed-text=(flop (scan (flop txt) trim-space))
=+ foy=(he-dope trimed-text)
=+ foy=(he-dope txt)
?- -.foy
$| [%| q.p.foy]
$& [%& p.foy]