ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed tall form parsing

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-16 15:12:34 -07:00 committed by Anton Dyudin
parent 07d4d4bd1a
commit 70c7ae5da1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
main/app/shell/core.hook
View File

@ -75,10 +75,10 @@
++ rail :: build from wide/tall ++ rail :: build from wide/tall
|* [wid=_rule wif=_rule tal=_rule] |* [wid=_rule wif=_rule tal=_rule]
?~ tol wid ?~ tol wid
;~ pose wid =- ;~(pose wif wid)
?: ?=(1 tol) wif ^= wif
;~(pose wif tal) ?: ?=(1 tol) wif
== ;~(pose tal wif)
:: ::
++ rais |*([wid=_rule tal=_rule] (rail wid wid tal)) ++ rais |*([wid=_rule tal=_rule] (rail wid wid tal))
:: ::