Fixed tall form parsing

2024-12-15 01:52:42 +03:00 · 2014-10-16 15:12:34 -07:00 · 2014-10-16 15:12:34 -07:00 · 70c7ae5da1
commit 70c7ae5da1
parent 07d4d4bd1a
1 changed files with 4 additions and 4 deletions
--- a/main/app/shell/core.hook
+++ b/main/app/shell/core.hook
@ -75,10 +75,10 @@
  ++  rail                                              ::  build from wide/tall
    |*  [wid=_rule wif=_rule tal=_rule]
    ?~  tol  wid
-    ;~  pose  wid
-      ?:  ?=(1 tol)  wif
-      ;~(pose wif tal)
-    ==
+    =-  ;~(pose wif wid)
+    ^=  wif
+    ?:  ?=(1 tol)  wif
+    ;~(pose tal wif)
  ::
  ++  rais  |*([wid=_rule tal=_rule] (rail wid wid tal))
  ::