ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-08 08:08:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

added much better suggestion

Browse Source 
mess
This commit is contained in:
Eric Fode 2017-09-29 15:33:42 +00:00
parent a375882873
commit 08b1c77976
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/dojo.hoon
View File

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