From 70c7ae5da1f24e1a6e9411dd9a2454cdd9727c9c Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Thu, 16 Oct 2014 15:12:34 -0700
Subject: [PATCH] Fixed tall form parsing

---
 main/app/shell/core.hook | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/main/app/shell/core.hook b/main/app/shell/core.hook
index e76f7efd6..b1fd4a64a 100644
--- 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))
   ::